Userform timer function.

[asyamonique]

Hello,
How can we change the below code function.
Istead time I need a timer...
Once userform pop ups timer will start.
Thanks

Option ExplicitDim Tempo As Date


Sub clock1()
Tempo = Now + TimeValue("00:00:01")
Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=True
End Sub


Sub Lable_Text()
list.Label148.Caption = Format(Now, "hh:mm:ss")
Call clock1
End Sub


Sub clock2()
On Error Resume Next
Application.OnTime Tempo, Procedure:="Lable_Text", Schedule:=False
End Sub


Sub userform_show()
list.Show
End Sub

Private Sub UserForm_Initialize()Application.Run "clock1"
End Sub

 

[Logit]

Presuming your timer macro is accurate :

Private Sub UserForm_Initialize()
     clock1
End Sub