Private Declare Function apiExitWindowsEx Lib  "user32"  _
        Alias  "ExitWindowsEx"  _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE =  4       'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF =  0      'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1   'Powers the system off, if possible.
Public Const EWX_REBOOT =  2      'Reboots the system.

Function ExitWin(lngExitVal As Long)
    ExitWin = apiExitWindowsEx(lngExitVal,  0 )
End Function