Some controls in VB4 and VB5, such as the TextBox control, have a default context menu that appearswhen you right-click on the control. If you want to pop up your own context menu, no property or methodof those controls exists to disable the default behavior.To solve this problem, place code in the Mouse_Down event, which disables the target control. Pop upyour context menu, and then re-enable the control. Here’s the method in PopContextMenu:
Sub PopContextMenu(argoControl As _ Control, argoMenu As Control) argoControl.Enabled = False PopupMenu argoMenu argoControl.Enabled = TrueEnd Sub
Call it in the MouseDown event of a text box named Text1 for a menu called MyMenu:
Private Sub Text1_MouseDown(Button As _ Integer, Shift As Integer, X As _ Single, Y As Single) If Button = vbRightButton Then PopContextMenu Text1, MyMenu End IfEnd Sub