左键的工作用右键完成~~~如何做啊 ，难

Question

如何实现用鼠标又键做单击的工作？
我们都知道 有CLICK事件来执行一段程序  但是是鼠标左键完成的那么如何实现用右键也能执行一段程序呢？
例如     有这样的例子：  先用鼠标左键从TEXT控件中选定一段话，
TEXT1的内容：ASDFGHJKL    假设用左键选定了  字符串SD  
那么此时点一下右键选定的字符串   就自动执行剪切  命令
关键是 如何把变量定义在  鼠标右键上？
由于我不太精通VB   别人问我的问题  但我不会
 所以请高手门拿出点 自己的想法？

Answer 1

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim str As String
If Button = 2 Then
str = Text1.Text
Text1.Text = ""
Clipboard.SetText str
End If
End Sub