Timer

[Spie]

How do I make a timer?
I want it to count down from 500 until it gets to 0.
I have this code in my formload:
----------------
Do
Label3.caption = label3 - 1
loop
----------------
VB gets pissed off and crashes though... Am I doing something wrong?

[MasterGoon]

The best way to do it is to use the timer object, though most people hate it, the code would be:

Dim intcount As Integer

Option Explicit

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    intcount = 501
End Sub

Private Sub Timer1_Timer()
    intcount = intcount - 1
    If count <> 1 Then
        Label1.Caption = intcount
    Else
        Timer1.Enabled = False
    End If
End Sub

Hope this helps

[Spie]

Thanks

[Spie]

Um... How do I make it stop at 0 and not go to the - numbers?

You can also do it without a Timer.

Sub CountDown(StartValue As Integer, lbl As Label)

    lbl = StartValue
    
    Do Until lbl = 0
        Start = Timer
        
        Do While Timer < Start + 1
        DoEvents
        Loop
        
        lbl = lbl - 1
    Loop
    
End Sub

Private Sub Command1_Click()
    CountDown 10, Label1
End Sub

[MasterGoon]

Use and if statement to tell it the program it must be more than 0...

Dim intcount As Integer

Option Explicit

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    intcount = 501
End Sub

Private Sub Timer1_Timer()
    intcount = intcount - 1
    If count > 0 Then
        Label1.Caption = intcount
    Else
        Timer1.Enabled = False
    End If
End Sub