<DllImport("Kernel32")> _
    Public Shared Function SetConsoleCtrlHandler(ByVal Handler As _
    HandlerRoutine, ByVal Add As Boolean) As Boolean
    End Function
 
    Public Delegate Function HandlerRoutine(ByVal CtrlType As CtrlTypes) As _
      Boolean
 
    Public Enum CtrlTypes
        CTRL_C_EVENT = 0
        CTRL_BREAK_EVENT
        CTRL_CLOSE_EVENT
        CTRL_LOGOFF_EVENT = 5
        CTRL_SHUTDOWN_EVENT
    End Enum
 
    Private Shared Function ConsoleCtrlCheck(ByVal ctrlType As CtrlTypes) As _
      Boolean
        MessageBox.Show("Interrupted! " & ctrlType.ToString())
        Return False  ' True um Schliessen abzubrechen)
    End Function

SetConsoleCtrlHandler(New HandlerRoutine(AddressOf ConsoleCtrlCheck), True)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov