<code>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
    <font color=green>' Hier ggf. eigenes PopUp-Menü anzeigen</font>
    PopupMenu mnuPopUp
  End If
End Sub</code>