我想在text控件中用复制、剪切、粘贴，不知道要如何操作。请给一个例子。

复制:Clipboard.SetText (Text1.Text)

粘贴:Text2.Text = Clipboard.GetText

剪切:Text2.Text = Clipboard.GetText
Text1.Text = ""

不好意思，没说清楚，你这样的复制、粘贴、剪切是对整个text框的，但很多时候只是一部分，关键是这个要什么做？！
就是要把鼠标选定的内容给复制、粘贴（在光标处）、剪切了，不是全部地操作，就是好比ctrl+c、ctrl+v、ctrt+x操作一模一样。
不过还是谢谢你的回复。

[此贴子已经被作者于2006-7-17 9:18:01编辑过]

Dim clips As String '模拟剪切板
Private Sub Command1_Click() '复制
clips = ""
clips = Text1.SelText
End Sub

Private Sub Command2_Click() '粘贴
Text1.SelText = clips
End Sub

Private Sub Command3_Click() '剪切
clips = ""
clips = Text1.SelText
Text1.SelText = ""
End Sub

用sendkeys能否完成

Private Sub Command1_Click() '复制
Text1.SetFocus
SendKeys "^c"
End Sub

Private Sub Command2_Click() '粘贴
Text1.SetFocus
SendKeys "^v"
End Sub

Private Sub Command3_Click() '剪切
Text1.SetFocus
SendKeys "^x"
End Sub

在sendkey前面的＾有什么用？

ctrl+v           ^v