COMO DESLIGAR COMPUTADOR XP/WIN2K COM HORA

If Time = Text1.Text Then
Código que desliga o pc
End If

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
MsgBox ("Seu PC será desligado na data e hora prevista"), vbInformation
'Me.Hide
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = Time
Text2.Text = Time
Text3.Text = Time
End Sub

Private Sub Timer1_Timer()

If Text1.Text = Time Then
MsgBox ("falta 10 minutos")


End If
End Sub

Private Sub Timer2_Timer()
    If Text2.Text = Time Then
    MsgBox ("falta 5 minutos")
    End If
End Sub

Private Sub Timer3_Timer()
        If Text3.Text = Time Then
        MsgBox ("Fim")
        'Dim cExitWindows As New clsExitWindows
        'cExitWindows.ExitWindows WE_LOGOFF
        End If
End Sub

Private Sub Form_Load()
Text1.Text = LeEntradaPrivIni("Parametro1", "Texto", "", App.Path & "\INI.INI")
'Text2.Text = Time
'Text3.Text = Time
End Sub

Private Sub Timer1_Timer()

If Text1.Text = Time Then
MsgBox ("falta 10 minutos")
End If

Ainda criei o modulo conforme é necessário, mas nada:
' declares para ler e gravar arquivo INI
Declare Function GravaEntradaPrivIni Lib "kernel32" Alias "WritePrivateProfileStringA" _
     (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
     ByVal lpString As Any, _
     ByVal lpFileName As String) As Long
Declare Function apiLeEntradaPrivIni Lib "kernel32" Alias "GetPrivateProfileStringA" _
     (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
     ByVal lpDefault As String, _
     ByVal lpReturnedString As String, ByVal nSize As Long, _
     ByVal lpFileName As String) As Long
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
     (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer _
     As String, ByVal _
     nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
     lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
     ByVal lpFileSystemNameBuffer As String, _
     ByVal nFileSystemNameSize As Long) As Long

[c]Sub GravaCacheIni(NomeDoINI As String)
    Dim ret As Integer
    ret = GravaEntradaPrivIni(0&, 0&, 0&, NomeDoINI)
End Sub

Function LeEntradaPrivIni(Secao As String, Entrada As String, _
    ByVal ValorDefault As String, NomeDoINI As String) As String
    Dim temp As String * 255
    Dim ret As Long
    ret = apiLeEntradaPrivIni(Secao, Entrada, ValorDefault, _
         temp, Len(temp), NomeDoINI)
    If ret Then
       LeEntradaPrivIni = Left$(temp, ret)
    End If
End Function