vb中如何在text控件里禁止拷贝和粘贴

VB中可设置TextBox控件的Enabled 属性为False禁制拷贝和复制。
Enabled 属性，返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
Enabled 属性允许在运行时使窗体和控件成为有效或无效。例如，可以使对象成为不能用于应用程序的当前状态的无效状态。也可以使之纯粹用来显示，比如一个提供只读信息的文本框的控件无效。

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then MsgBox "不准粘贴或复制", , "提示"
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then MsgBox "不准粘贴或复制", , "提示"
End Sub

判断键值应该可以，vb不是可以监控键盘按下和谈起么！如果按下的键值是ctrl+c或是v那么就不让造作，这样应该就可以了吧。

换成用RichTextBox控件
代码:
Private Sub Form_Load()
RichTextBox1.Locked = True
End Sub

Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
timer1.interval=1