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 PopMenu1, vbPopupMenuRightButton End If End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then ReleaseCapture PopupMenu PopMenu1, vbPopupMenuRightButton End If End Sub
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long