Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPublic Const ewx_logoff = 0
Public Const ewx_shutdown = 1
Public Const ewx_reboot = 2
Public Const ewx_force = 4Private Sub Command1_Click()
dd = ExitWindowsEx(ewx_force Or ewx_shutdown, 0)
End Sub