Visual Basic - Problema apagar ordenador

Hola estoy haciendo una aplicacion en visual basic y quiero que al darle al boton apagar ordenador lo apague. He estado probando con la función exitwindowsex pero esta me devuelve el valor cero y no me lo apga. Con esta función lo único que he conseguido es que me reinicie el windws. ¿Sabeis que puede pasarle? ¿Existe otro tipo de forma de hacerlo?

Apagar el equipo, reiniciar Windows, reiniciar el Sistema:

Añadir tres botones a un formulario y escribir lo siguiente en el código del formulario:

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario
End Sub

Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub

Eso es lo que no me funciona. Lo único que funciona es reiniciar windows.