我想在鼠标右键单击TEXT1文本框中的时候

Question

可在MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)中做到。
button 返回一个整数，用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。

Answer 1

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   MsgBox ("右键")
End If
End Sub