'▼APIの宣言
Declare Function ExitWindowsEx Lib "user32" ( _
    ByVal uFlags As Long, _
    ByVal dwReserved As Long _
) As Long

'▼定数の宣言
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2

Ret = ExitWindowsEx(EWX_SHUTDOWN, 0)

Ret…関数が成功したかどうかが返ります。
  0以外…関数成功
  0    …関数失敗

EWX_SHUTDOWN…この部分にはWindowsの終了の仕方を指定します。
  EWX_LOGOFF  …ログオフ（他のプログラムを終了して、
                画面がWindowsになったところまで戻ります）
  EWX_SHUTDOWN…シャットダウン（Windowsを終了して、
                電源が自動的に切れる場合は電源を落とします）
  EWX_REBOOT  …リブート（Windowsを終了して、
                コンピューターを再起動します）