如何屏蔽系统弹出菜单

Question

比如一个Text控件，想在点击鼠标右键时调用自己写的菜单，但它总是会先弹出系统菜单(编辑，复制，粘贴之类)然后才弹出自己写的菜单，请问高手如何解决。以前弄过，忘记了，搜了一下没搜到。
1：用API
2：直接写VB代码好象也可以的。

Answer 1

最简单的办法：
If button=vbrightbutton then
  Text1.Enable=False
  Text1.Enable=True
End if

Answer 2

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Text1.Enabled = False
    Me.Text1.Enabled = True
    PopupMenu munOper '菜单名
End Sub

Answer 3

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Me.Text1.Enabled = False
        Me.Text1.Enabled = True
        PopupMenu munOper '菜单名
    End If
End Sub

Answer 4

PopupMenu munOper '菜单名     写在mousedown事件里啊，原来如此，多谢。