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