如何实现 在文本框中按下鼠标右件键 弹出一个菜单？？？？

Question

下面的为什么有错？？
Private Sub txtDisplay_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Form.PopupMemu mnuFile, 0, X, Y
  End If
End Sub

Answer 1

Private Sub txtDisplay_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Text1.Enabled = False
        Text1.Enabled = True
        Form.PopupMemu mnuFile, 0, X, Y
    End If
End Sub

Answer 2

Private Sub txtDisplay_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        txtDisplay.Enabled = False
        txtDisplay.Enabled = True
        PopupMenu mnuFile
    End If
End Sub