VB 版 (精华区)

怎样将VB某些控件的缺省菜单屏蔽掉而使用自己的弹出菜单，例如文本框控件
〖答〗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
            Text1.SetFocus
            PopupMenu mnuUserDefine
      End If
End Sub