Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Shared Sub Shutdown() ExitWindowsEx(1, 0)End Sub