setting timer to one hour

[usin]

how do i set a timer to one hour.

the following code does not work

Private sub cmdTime_click
while count =< 600
timer.enabled = true
count = count + 1
wend
End Sub

[John G Duffy]

Option Explicit

Private Sub Command1_Click()
Label1 = Now
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static X
X = X + 1
If X = 60 Then
Beep
Label2 = Now
Timer1.Enabled = False
End If
End Sub


John G

[usin]

thank you, John.

it works!.

i wonder why my first coding (using while..wend) did not work.

usin.