Apagar o Reiniciar el Equipo en Win XP y Anteriores con VB6

Introducción

Este ejemplo se dió por la necesidad de apagar un equipo con S.O. Win XP, y como el API ExitWindowsEx sólo me aceptaba el reinicio del equipo, me hizo buscar y buscar llegando al siguiente resultado Shell "shutdown -r -f -t 0" para Reiniciar y Shell "shutdown -s -t 0" para apagar.

El código:

Bién ahora abrimos un Form e insertamos un CommandButton con index 0, 1 y 2, debe quedar así:

Command1(0).Caption = "Cerrar Sesión"
Command1(1).Caption = "Reiniciar"
Command1(2).Caption = "Apagar"

FORM1:

Option Explicit
'Control de Apagar, Cerrar Session, reiniciar
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0 'Cerrar Session
            ExitWindowsEx EWX_LOGOFF, 0 'Cierra sesión en Win 98, 2000, XP
        Case 1 'Reiniciar PC
            ExitWindowsEx EWX_REBOOT, 0 'Reinicia el Sistema
            Shell "shutdown -r -f -t 0" 'Reinicia el equipo en Win XP
        Case 2 'Apagar PC
            ExitWindowsEx EWX_SHUTDOWN, 0 'Apaga el equipo en Win 98, 2000
            Shell "shutdown -s -t 0" 'Apaga el equipo en Win XP
    End Select
End Sub

Bien eso fue todo espero que les sirva.

Saludos