Funciones del menú Apagar el Sistema

Declaración :

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Apagar el equipo : 

Dim x as Integer
x = ExitWindowsEx(1, 0&) 

Reiniciar Windows con un nuevo usuario :

Dim x as Integer
x = ExitWindowsEx(0, 0&) 

Reiniciar el equipo :

Dim x as Integer
x = ExitWindowsEx(2, 0&)