apagar el equipo con visual basic 6.0

[Eddo]

Hola a todos !!
Necesito un codigo en visual 6.0 que me sirva para apagar mi equipo, con windows 2000 , 98 o NT. Bueno tengo un codigo pero no me funciona y he probado con otros pero el programa no hace nada, no entiendo que pasa, por favor alguien que sepa cual es mi error, una ayuda!!!
el codigo q tengo es:

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


Muchas gracias de antemano!! chao!!