Question

我写了个vb6的粘贴复制的小程序，可运行是老是出现实时错误，代码404

这是代码：
Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub

Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub

Private Sub CmdPaste_Click()
SelText.TxtContent = Clipboard.GetText
End Sub

Private Sub CmdQuit_Click()
End
End Sub

Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblStart.Caption = "起始位置:" & TxtContent.SelStart
LblLenght.Caption = "文本长度:" & TxtContent.SelLength
End Sub
我想要在该文本框中复制其中的某个字（如中国心）然后在该文本框中粘贴，但粘贴时老是出现实时错误，我也不知道怎么办，我是新手刚学。那位高人指教下啊，谢谢了！！！！！！！！！
还是不行啊。还是出现错误不知道是我编程有问题还是怎么回事啊？

Answer 1

Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub

Answer 2

在Clipboard.SetText TxtContent.SelText句前，补上clipboard.clear，不然会有许多莫名其妙的问题。