VB剪贴板解决方案

VB剪贴板
Dim str As String
Private Sub Command1_Click()//剪切
str = Text1.SelText
Text1.Text = ""
End Sub

Private Sub Command2_Click()//复制
str = Text1.SelText
End Sub

Private Sub Command3_Click()//粘贴
Text1.Text = str
End Sub

剪切之后，无法粘贴，请高手指点一二！

------解决方案--------------------------------------------------------
那是因为你没有选择字符，导致Text1.SelText为空