Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
  'Die Textbox hat normalerweise ein eigenes Popup-Menü,
  'hiermit wird dieses wahlweise "ein/ausgeschaltet"
  'je nachdem ob das Häkchen beim Menüpunkt Rechtschreibprüfung gesetzt ist 
  ' oder nicht.
 
  If Button = 2 Then
    If mnuSpellon.Checked = True Then '<------------- NEU: abfrage ob häkchen 
    ' gesetzt ist
        'rechtschreibprüfung verwenden
        ClearPopupMenu
        With Text1
            .Enabled = False
            .Enabled = True
            .SetFocus
        End With
        PopupMenu mnuSpell
    Else                           '<--------------- NEU: else part
        'standard popup-menü verwenden
        With Text1
            .Enabled = False
            .Enabled = True
            .SetFocus
        End With
    End If
  Else
        sCheckWord = ""
  End If
 
' WICHTIG:
' das untermenü mnuspellon muss in das menü Datei verschoben werden,
' sonst kann man die rechtschreibprüfung nicht mehr einschalten.
 
End Sub