Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
 
        Const WM_QUERYENDSESSION As Integer = &H11  ' Session soll beendet 
        ' werden
        Const WM_ENDSESSION As Integer = &H16       ' Session wird beendet
        Const WM_SYSCOMMAND As Integer = &H112      ' WM_SYSCOMMAND+SC_CLOSE ->
        Const SC_CLOSE As Integer = &HF060          '   -> vbFormControlMenu
        Const WM_CLOSE As Integer = &H10            ' Code oder Taskmanager 
        ' oder MDI-Parent
 
 
        ' Prüfung der anstehenden Nachricht für diese Form:
        Select Case m.Msg
 
 
            Case WM_QUERYENDSESSION
 
                ' Grund für das Schließen der Form:
                ' Die Windows-Sitzung soll beendet werden
 
                ' Pflichtantwort, ob dem Schließen zugestimmt wird (ja):
                m.Result = New IntPtr(1) ' Für Cancel: Zeile löschen
                MsgBox("QUERYENDSESSION")
 
            Case WM_SYSCOMMAND ' Prüfen auf SC_CLOSE
 
                If m.WParam.ToInt32 = SC_CLOSE Then
 
                    ' Grund für das Schließen der Form:
                    ' Der Anwender hat "Schließen" ausgewählt (inkl. 
                    ' Titelzeilen-Button)
                    MsgBox("Der Anwender hat Schließen ausgewählt (inkl." & _
                      "Titelzeilen-Button)")
                End If
 
 
            Case WM_CLOSE
 
                ' Grund für das Schließen der Form:
                ' Die Form wurde 
                ' - per Code geschlossen oder
                ' - per Anwendungsliste im Taskmanager beendet oder
                ' - das MDI Parent dieses MDI Childs wurde geschlossen.
                MsgBox("Die Form wurde - per Code geschlossen oder  - per" & _
                  "Anwendungsliste im Taskmanager beendet oder - das MDI Parent" & _
                  "dieses MDI Childs wurde geschlossen.")
 
        End Select
 
        ' Original aufrufen
        MyBase.WndProc(m)
 
 
    End Sub