No funciona el apagado del pc desde codigo

[evildoers]

Hola a todos, tengo un programa que deberia apagar el pc al presionar un boton, tengo el siguiente codigo el cual lo obtuve desde las FAQ's del foro.

'************************************************* *****
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'************************************************* *****
Private Sub Command1_Click()
Dim i As Integer
i = ExitWindowsEx(1, 0) 'Apaga el equipo
End Sub
'************************************************* *****
Mi duda es que al presionar el boton no sucede nada y no realiza la operacion de apagado. Le he cambiado los parametros de 1 a 2 que seria reiniciar el pc y tampoco se reinicia, solo funciona el cambio de sesion el cual se envia el parametro 0. Bueno espero que me puedan ayudar.
Tengo windos XP con SP2.

Saludos y Gracias.