Option Explicit　　　　 'SampleNo=032　WindowsXP VB6.0(SP5) 2002.05.01

'カレントユーザーのログオフ、Windowsの終了、再スタートを行う(P1073)
Private Declare Function ExitWindowsEx Lib "user32" _
　　(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'uFlags　は終了の方法を指定する次の定数
'応答のないプロセスを強制終了する
Private Const EWX_FORCE = &H4
'現在のユーザーのアプリケーションをクローズし、ログオフする
Private Const EWX_LOGOFF = &H0
'システムをシャットダウン後、再起動
Private Const EWX_REBOOT = &H2
'システムをシャットダウン後、電源オフ可能状態にする
Private Const EWX_SHUTDOWN = &H1
'システムをシャットダウンし、電源をオフにする（電源オフ機能を持つときのみ有効）
Private Const EWX_POWEROFF = &H8
'dwReserved　は常に 0


処理したい場所に記入
Private Sub Command1_Click()
'システムをシャットダウンし、電源をオフにする
　　Dim Ret As Long　　 '機種に合せて設定
　　Ret = ExitWindowsEx(EWX_POWEROFF, 0&)
End Sub


Private Sub Command2_Click()
'システムをシャットダウン後、再起動
　　Dim Ret As Long　　 'EWX_FORCE は併用しない方が無難です。
　　Ret = ExitWindowsEx(EWX_REBOOT, 0&)
End Sub