'Hallo ...
'Hier ein kleines Beispiel wie Sie abfragen können, ob der "X" Schalter einer
'Form betätigt wurde...
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim Result As Integer
 
    If (UnloadMode = FORM_CONTROLMENU) Then
        Result = MsgBox("Wollen Sie " & App.Title & " beenden ?", 4, _
          App.EXEName)
        If Result = 7 Then
            Cancel = True
            MsgBox "Das Programm wird nicht beendet."
        End If
        If Result = 6 Then
            Cancel = False
            MsgBox "Das Programm wird beendet."
        End If
    End If
End Sub
'MfG
'Frank