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