一个textbox，想一点击它就将里面的内容复制到剪切板中如何编

一个textbox，想一点击它就将里面的内容复制到剪切板中怎么编?
程序运行时点击这个   textbox   ，就能将里面显示的内容自动复制

要怎么做？谢谢！！

[解决办法]
Private Sub Text1_Click()
Clipboard.SetText Text1.Text
Debug.Print Clipboard.GetText
End Sub

[解决办法]
Private Sub Text1_Click()
If Text1.Text <> " " Then
Clipboard.Clear
Clipboard.SetText Text1.Text '复制

Text2.Text = Clipboard.GetText()　
End If

End Sub