Question

VB 利用按钮全选并复制richtextbox中的内容，为什么一复制其他东西后就不能用了？

我是个菜鸟，自己没事便了个公作用的小程序，判断输入的信息然后利用按钮全选并复制richtextbox中的不同内容，但是一复制其他东西，按钮就失效了。请问是为什么？
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
Clipboard.SetText Form4.RichTextBox1.SelText
在补充一个问题，复制成功后，我弹出一个对话框，提示说已经成功复制，可以按crtl+v键粘贴。但是确发现按ctrl+v的时候没任何反映，请问该如何写程序？

Answer 1

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
SnedKeys "^{C}" '模拟按下Ctrl+C

或者
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
Clipboard.Clear '先坦顷清巧罩空孝信闹剪贴板
Clipboard.SetText Form4.RichTextBox1.SelText