Apagar y Reiniciar equipo

Que tal
Mi nombre es Jorge y estoy haciendo una aplicación en Visual Basic 6 y quiero ponerle unos botones de Apagado otro de Reiniciar y de Log Off, el equipo pero no me funciona el código que tengo el único que funciona es el de LOG OFF estoy usando Win2000 no se si eso tenga algo que ver porque yo use este mismo código en Win98 y si funciono muy buen por favor si me podrías ayudar en eso te agradecería
El código que tengo es el siguiente:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uflags&, ByVal dwreserved&)
Private Sub Command1_Click()
Dim i As Integer
i = ExitWindowsEx(1, 0&)
End Sub
Private Sub Command2_Click()
Dim i As Integer
i = ExitWindowsEx(0, 0&)
End Sub
Private Sub Command3_Click()
Dim i As Integer
i = ExitWindowsEx(2, 0&)
End Sub