Timer (loop)

[rehto]

Hi,

I'm trying to make a program do X every 30 seconds. My timer only fires once. Here's my code:


(in Declarations)

Option Explicit
Dim Counter As Integer

(in Form Load)

Timer1.Enabled = True
Timer1.Interval = 1000
Counter = "0"

And my sub:

Private Sub Timer1_Timer()
Counter = Counter + 1
If Counter = 30 Then
    MsgBox "30 seconds has passed"

End If
End Sub

I've tried changing things around a bit, and I've tried putting Timer1.Enabled=False followed by Timer1.Enabled=True after the MsgBox.

What's wrong?

Thanks.