Automatisk nedlukning af windows XP

Hej
Spørgemålet har været oppe flere gange kan jeg se, men her er min løsning.
Men det virker kun første gang, næste gang starter programmet godt nok op, men den giver aldrig besked på at lukke windows.
Her er kildekoden
________________________________--
Private Sub Form_Load()
Check1.Value = 0
tid = GetSetting(appname:=App.Title, section:="User", Key:="Key")
  txtText1.Text = tid
  Me.WindowState = 1
Me.Visible = False
    Timer2.Enabled = True
  End Sub
____________________________
Private Sub Timer2_Timer()
nutid = time
If Len(nutid) > 7 Then
nytime = Mid(nutid, 1, 2)
nyminut = Mid(nutid, 4, 2)
nytid = nytime & ":" & nyminut
End If
If Len(nutid) = 7 Then
nytime = Mid(nutid, 1, 1)
nyminut = Mid(nutid, 4, 2)
nytid = nytime & ":" & nyminut
End If

If txtText1.Text = nytid Then
If Check1.Value = 0 Then
Form2.Show  ( Her aktiveres en meddelses boks, så brugeren har 60 sec til at afbryde nedlukningen )

Check1.Value = 1
Else
End If
Else
End If
End Sub
____________________

I form2 har jeg følgende

Private Sub Form_Load()
Shell "shutdown -s -t 60"
Unload Me
End Sub
____________________________

Som sagt virker det kun første gang, programmet ligger i windows start mappe, og bliver godt nok startet op, men af en eller anden grund, lukker den ikke ned for maskinen igen...

Nogen der har en god løsning ??

MVH
ForceMAster