Private Sub Text1_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  ' Rechtsklick - eigenes PopUp anzeigen
  If Button = 2 Then
    Text1.Enabled = False
    DoEvents
    Text1.Enabled = True
    Text1.SetFocus
    PopupMenu myPopUp
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de