برنامه ای که بعد از مدتی بصورت خودکار کامپیوتر رو خاموش کنه؟

سلام
interval تایمر رو روی 1000 تنظیم کنید

Private Sub Command1_Click()
If Command1.Caption = "Start" Then
    Timer1.Enabled = True
    Command1.Caption = "Stop"
Else
    Command1.Caption = "Start"
    Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text - 1
If Text1.Text <= 0 Then Shell ("Shutdown -s -f -t 0")
End Sub