关于文本框中的右键菜单，在线等待....

Question

我想在一个文本框中弹出自己的右键菜单，所以我这样写到，
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu myMenu
    End If
End Sub
但是，结果确不是我所想象的，它会弹出系统的文本右键菜单（复制，粘贴等），有时会出现自己的菜单，我该怎么办？我试过拦截消息，然后屏蔽右键菜单，但是这样做的话，把自己的菜单都屏蔽了。
如果我把文本框控件换成RichTextBox就不会这样了，难道一定要用RichTextBox吗？在线等待中。

Answer 1

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        text1.enabled=false
        text1.enabled=true
        PopupMenu myMenu
    End If
End Sub

Answer 2

应将代码写在text1_mouseup事件中

Answer 3

如果代码不写在MOUSEDOWN事件中，而直接写在text1_mouseup事件中，无效。
用前面的办法（text1.enable=false text1.enable=true）倒可以。