Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
... ALTRE OPERAZIONI ....
End If
End Sub