Bueno amigos sólo quiero agregar referente al tema del apagado, he estado buscando la manera de apagarlo el winxp y la mas sencilla de todas es esta y me funciona.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
'APAGAR
Shell ("C:\Windows\System32\shutdown.exe -s -t 00")
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
'REINICIAR
Shell ("C:\Windows\System32\logoff.exe")
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Espero que les sirva.
Atentamente., Desde Paraguay, Esteche.