<code>Private Sub Text1_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
  <font color=green>' Die Textbox hat normalerweise ein eigenes Popup-Menü,
  ' hiermit wird dieses "ausgeschaltet"</font>
  If Button = 2 Then
    With Text1
      .Enabled = False
      .Enabled = True
      .SetFocus
    End With
  End If
End Sub</code>