Module Module1Module Module1 Public Declare Function SetConsoleCtrlHandler()Function SetConsoleCtrlHandler Lib "kernel32.dll" Alias "SetConsoleCtrlHandler" (ByVal handlerRoutine As HandlerRoutine, ByVal add As Boolean) As Boolean Public Delegate Sub HandlerRoutine()Sub HandlerRoutine(ByVal type As Integer)