Windowsをログオフする

Option Explicit
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1

Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long　

Private Sub Command1_Click()
Dim strMsg As String ' メッセージ変数
Dim lngRet As Long
strMsg = " ウインドウズを終了します。" + vbCrLf
strMsg = strMsg + " すべてのアプリケーションを終了してください。" + vbCrLf
strMsg = strMsg + " よろしいですか？"
If vbYes = MsgBox(strMsg, vbYesNo) Then
lngRet = ExitWindowsEx(EWX_FORCE, &HFFFFFFFF)End If　
End Sub