Private Const EWX_LOGOFF As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
lngResult = ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub
Private Sub Command2_Click()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub
Private Sub Command3_Click()
lngResult = ExitWindowsEx(EWX_REBOOT, 0&)
End Sub
Y solo funciona el que cierra la sesion
Por Favor necesito ayuda es para un proyecto GRACIAS