Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Select Case UnloadMode
  Case 0
    ' Benutzer hat das Fenster über das Systemmenü geschlossen
  Case 1
    ' Im Code wurde die Unload-Methode aufgerufen
  Case 2
    ' Windows wird beendet
    End
  Case 3
    ' Der Task-Manager von Windows schließt die Anwendung
  Case 4
    ' Die Form wird geschlossen, weil die übergeordnete MDI-Form
    ' geschlossen wird (nur bei MDI-Child-Formen)
  End Select
End Sub