ExitWindowsEx(EWX_POWEROFF, 0)

[JoshT]

On Windows NT4, this seems to make it reboot rather than shut off. Can anyone get NT4 to power off rather than prompt for turnoff?

Private Enum SHUTDOWNFLAG
    EWX_LOGOFF = 0
    EWX_SHUTDOWN = 1
    EWX_REBOOT = 2
    EWX_FORCE = 4
    EWX_POWEROFF = 8
End Enum
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As SHUTDOWNFLAG, ByVal dwReserved As Long) As Long

Private Sub cmdPoweroff_Click()
    Dim retval As Long
    retval = ExitWindowsEx(EWX_POWEROFF, 0)
    Unload Me
End Sub

Thanks,