Private Sub Text1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then Text1.Enabled = False PopupMenu Popup1 Text1.Enabled = True End If End Sub