Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Select Case UnloadMode
 
    Case vbFormControlMenu  ' 0
      MsgBox "Anwender hat Schließen-Befehl gewählt!"
 
    Case vbFormCode         ' 1
      MsgBox "Unload-Befehl aus dem Code heraus"
 
    Case vbAppWindows       ' 2
      MsgBox "Aktuelle Windows-Sitzung wird beendet"
 
    Case vbAppTaskManager   ' 3
      MsgBox "Taskmanager beendet die Anwendung"
 
    Case vbFormMDIForm      ' 4
      MsgBox "Untergeordnetes MDI-Formular wird geschlossen!"
 
    Case vbFormOwner        ' 5
      MsgBox "Übergeordnetes Formular wird geschlossen"
  End Select
End Sub