0

Hi All,
I try to make count down timer but.
This following is my code but it just decrease one time and stop.

Dim TCount As Integer

Private Sub Form_Load()
TCount = 30
Label1.Caption = "30"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = TCount  - 1
If TCount  = 0 Then
  Msgbox "Time's UP!"
End If
End Sub

Please Help.
Thank you

2
Contributors
2
Replies
6
Views
6 Years
Discussion Span
Last Post by Jx_Man
1

Try this :

Private Sub Timer1_Timer()
TCount = TCount - 1

Label1.Caption = TCount  
If TCount = 0 Then
  Msgbox "Time's UP!"
End If
End Sub
0

If done then please mark this thread as solved.

Thanks.

Edited by Jx_Man: n/a

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.