Question

VB中richtextbox粘贴纯文本格式文字

VB中richtextbox粘贴纯文本格式文字问题，我在做一个程序，如题想屏蔽从其他地方复制进来的文字格式，譬如字体大小，颜色，文字间距等等，本来是用TEXTBOX的，但是这个东西文字多了，行距比较紧，看的人眼睛都花了，又因为RICHTEXTBOX自身的行距比较大，文字多了看起来不累，所以才选择了用RICHTEXTBOX，但是又遇到了一个问题，如题。但是从网上看了很多，就是没有一个能解决这个问题的人。也说了好多。都没有用。谁能够把代码写出来？悬赏10分，要能彻底解决问题的。
这里有个代码
Private Sub RichTextBox1_keydown(KeyCode As Integer, Shift As Integer)
If (Shift And vbCtrlMask) And KeyCode = vbKeyV Then
If Clipboard.GetFormat(vbCFText) Then
RichTextBox1.SelText = Clipboard.GetText(vbCFText)
Else
Clipboard.Clear
End If
End If
End Sub
但是运行起来之后，粘贴内容都是两份，一份去格式的，另外一份是汗格式的。这哪里出问题了？

Answer 1

Private Sub Command1_Click()
RichTextBox1.Text = Clipboard.GetText
End Sub