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