<code>Private Sub txtFläche_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  If Button = 2 Then
    With txtFläche
      .Enabled = False
      .Enabled = True
      .SetFocus
    End With
    PopupMenu mnuPopUp
  End if
End Sub</code>