急求vb编写倒计时关机代码，要求窗体上显示倒计时剩余秒数，最好窗体一启动就开始倒计时关机，谢谢，。

Sub Timer1_Timer()

Text3 = IIf(ss < 10, "0" & ss, "" & ss)

Text2 = IIf(mm < 10, "0" & mm, "" & mm)

Text1 = IIf(hh < 10, "0" & hh, "" & hh)

STRmm = Text1.Text & Text2.Text & Text3.Text

P(0) = Mid(STRmm, 1, 1)

P(1) = Mid(STRmm, 2, 1)

P(2) = Mid(STRmm, 3, 1)

P(3) = Mid(STRmm, 4, 1)

P(4) = Mid(STRmm, 5, 1)

P(5) = Mid(STRmm, 6, 1)

For i = 0 To 5

Select Case P(i)

Case "0"

Image6(i).Picture = LoadResPicture(110, 0)

Case "1"

Image6(i).Picture = LoadResPicture(101, 0)

Case "2"

Image6(i).Picture = LoadResPicture(102, 0)

Case "3"

Image6(i).Picture = LoadResPicture(103, 0)

Case "4"

Image6(i).Picture = LoadResPicture(104, 0)

Case "5"

Image6(i).Picture = LoadResPicture(105, 0)

Case "6"

Image6(i).Picture = LoadResPicture(106, 0)

Case "7"

Image6(i).Picture = LoadResPicture(107, 0)

Case "8"

Image6(i).Picture = LoadResPicture(108, 0)

Case "9"

Image6(i).Picture = LoadResPicture(109, 0)

End Select

Next

'将时间值赋给SMALLFORM窗体显示

Sss = IIf(ss < 10, "0" & ss, "" & ss)

Smm = IIf(mm < 10, "0" & mm, "" & mm)

Shh = IIf(hh < 10, "0" & hh, "" & hh)

SmallForm.Label1.Caption = "剩余:" & Shh & "时" & Smm & "分" & Sss & "秒"

ss = ss - 1

If hh = 0 And mm = 0 And ss = -1 Then

Select Case Combo1.ListIndex

       Case 0

       '反回桌面锁屏代码

                'MsgBox Combo1.List(0)

                '以下代码返回桌面

                keybd_event VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY, 0  ' 按下

                DoEvents

                keybd_event vbKeyM, 0, KEYEVENTF_EXTENDEDKEY, 0

                DoEvents

                keybd_event vbKeyM, 0, KEYEVENTF_KEYUP, 0  ' 弹起

                DoEvents

                keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0  ' 弹起

              '以下代码锁屏

                LockWorkStation

      Case 1   '重启计算机

                Reboot

      Case 2   '关闭计算机

                ShutDown

      Case 3   '注销系统

                ExitWindowsEx EWX_LOGOFF, 0

      Case 4   '执行程序

               ShellExecute 0, "open", CommonDialog1.FileName, "", Left(CommonDialog1.FileName, _

               Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle)), 1

      Case 5  '关闭程序

              Shell "cmd.exe /c taskkill /f " & KillString

End Select

          t.cbSize = Len(t)

          t.hWnd = pic.hWnd

          t.uId = 1&

          Shell_NotifyIcon NIM_DELETE, t

         End

End If

If ss = -1 And mm > -1 Then mm = mm - 1: ss = 59

If mm = -1 And hh > 0 Then hh = hh - 1: mm = 59

'每10分钟全屏截图一次存入在目录文件夹ScreenPotho中

If mm Mod 10 = 0 And ss = 3 Then

   Call ScreenPohto

End If

'最后一分钟播放音乐提醒

If hh = 0 And mm = 0 And ss <= 59 And Aminute.Checked = True And Plays = 0 Then

  Plays = sndPlaySound("warning.wav", SND_LOOP Or SND_ASYNC) '播放

End If

End Sub

窗体上创建一个Label控件Label1，一个定时器控件Timer1
Dim Sec As Long

Private Sub Form_Load()
Timer1.Interval = 1000
Sec = 600 ‘这里修改为你需要的倒计时时间
Label1 = Sec & "秒后关机"
End Sub

Private Sub Timer1_Timer()
Sec = Sec - 1
Label1 = Sec & "秒后关机"
If Sec <= 0 Then
Shell "Shutdown -s -f -t 0"
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = 10 '预设10秒倒计时
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text - 1
If Text1.Text = 0 Then Shell "shutdown /t 0 /s", vbNormalFocus
End Sub