倒計時vb代碼

Dim N As Integer

Private Sub Form_Load()

N = 10

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

N = N - 1

If N > 0 Then

Label1.Caption = N

Else

Label1.Caption = "時間到"

Timer1.Enabled = False

End If

End Sub