如果是想先用鼠标选择Text1的文本（可以部分，也可以全部），然后按Command1复制已选择的文本到剪贴板，则是：
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
End Sub
如果是直接复制Text1的所有文本到剪贴板，则是：
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub
思路如下：
第一种办法：有一个函数可以做到
第二，用一个变量记录一下，然后SET给对象
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024