Vb6读取和复制文本框里面的内容到粘贴板

最近做个vb6小程序，想把文本框里面的内容复制到粘贴板，有人知道怎么做呢

补充：
有时候点击了没效果，为什么啊？

答案：直接就用 Clipboard.SetText Text1.Text 就可以了，简单的很

其他：
如果你点击COMMAND的时候TEXT已经失去焦点，可以这样 

Private Sub Command1_Click() 
Text1.SetFocus 
Text1.SelStart = 0 
Text1.SelLength = Len(Text1.Text) 
Clipboard.SetText Text1.SelText 
End Sub  

上一个：给vb6的文本框赋值的方法，复制粘贴板内容到文本框
下一个：vb6中的textbox文本框 控件如何自动换行