VB0.6編程無需人工自動倒數10分鐘關閉窗體或關機的代碼！

Option Explicit

Dim t As Integer

Private Sub Form_Load()

t = 10 * 60

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

If t > 0 Then

t = t - 1

me.caption=t

Else

Shell "cmd.exe /c shutdown -s -f -t 0"

End If

End Sub

那個 t 是倒計時秒數