以下是引用xzlxzlxzl在2014-12-1 20:09:15的发言：

不嫌麻烦，用代码控制，很简单的。
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 22 Then KeyAscii = 0   '禁止Ctrl+V键粘贴
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

以下是引用xzlxzlxzl在2014-12-2 00:29:59的发言：

不要任何提示通用的方法是用钩子，相当繁琐，网上有相关代码。这里介绍一种我刚想到的一种方法，使用延时完成，一般可以欺骗常规用户（鼠标右键按长点时间，仍然会弹出右键菜单，但粘贴选项变灰；了）
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim t As Single
  If Button = 2 Then
    Clipboard.Clear    '清除粘贴板内容，万一弹出也没有什么可以粘贴
    Text1.Enabled = False
    t = Timer * 1000
    While Timer * 1000 - t < 300   '通过实验，0.3秒是一个合适的时间，不容易弹出右键菜单
      DoEvents
    Wend
    Text1.Enabled = True
    Text1.SetFocus
  End If
End Sub