VB - Abmeldevorgang verhindern solange Anwendung läuft

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Microsoft.Win32.SystemEvents.SessionEnding, AddressOf SesionEnding
    End Sub


    Sub SesionEnding(ByVal sender As System.Object, ByVal e As Microsoft.Win32.SessionEndingEventArgs)
        If (e.Reason = Microsoft.Win32.SessionEndReasons.Logoff) OrElse (e.Reason = Microsoft.Win32.SessionEndReasons.SystemShutdown) Then
            e.Cancel = True
            MessageBox.Show("Solange die Anwendund xxx aktiv ist, ist eine Abmeldung nicht möglich!")
        End If
    End Sub