Работа с тайметом. Что я не так сделал?

[Daniil]

я пишу такой код:

Private Sub Timer2_Timer()
a = 1000
If a > 600000 Then
MsgBox Label1.Caption
Else
a = a + 1000
MsgBox "Прошло 10 минут"
End If

End Sub

Мне нужно чтобы по истечении 10 минут вышло сообшения "Прошло 10 минут" это нужно сделать с помощью таймера. Что я не так сделал?

[Bethy]

Поставь Timer.interval=1000

Код: Выделить всё

Private Sub Timer2_Timer()
Static a as Integer
a=a+1
If a=600 then MsgBox "Прошло 10 минут" : a=0
End Sub


Только учти, что если не нажать в MsgBox'e "ОК", то, возможно, таймер остановиться.