Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Select Case UnloadMode
     Case 0            '0 = anclicken der Schließen- Schaltfläche in der 
     ' Titelleiste der Form
       Cancel = False    '  wenn die Anwendung beendet werden soll
 
      Case 1                      '1 = Die Unload-Anweisung wurde im Code 
      ' aufgerufen.
        Cancel = False
 
     Case 2 To 3              '2 = Die aktuelle Sitzung des Betriebssystems 
     ' wird beendet.
        Cancel = False      '3 = Der Microsoft Task-Manager beendet die 
        ' Anwendung.
  End Select
End Sub