Visual Basic - cerrar windows xp

Hola: me podeis ayudar para poder cerrar windows xp mediante codigo VB 6.0. el codigo que me funciona sobre win9x no me funciona en XP

i = ExitWindowsEx(1, 0&) 'Reinicia el Sistema

Saludos y gracias
Juan

Fijate con ésto:

Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long

InitiateSystemShutdown("\\NombreDeLaMaquina", "apagar", 1, True, False