向文本框等等控件的系统右键菜单里追加自己定义的菜单
方法是这样的：
If Button = vbRightButton Then
' Make VB discard the mouse capture.
Text1.Enabled = False
Text1.Enabled = True

' Display the custom menu.
PopupMenu Menu1
End If

其中Menu1是你建立的菜单的名称。