Increase The Time By 1 Second

Hi,

I have a question.

I want to make a action on every 2 hours on the form.

On form time interval, I set 1000

Private Sub Form_Open()
a = "00:00:00"
End Sub

Private Sub Form_Timer()
On Error GoTo Err_mess
timelabel = CDate(a) + cdate("00:00:01")

Err_mess:

End Sub


I want to start 00:00:00, and then add 1 second on every time interval=1000.

eg.
00:00:00
00:00:01
00:00:02
00:00:03
...
...
01:00:00

How can I make it? Thanks.