Funnily enough, I posted this earlier today



Here is an example based upon a label on the form to show the time, and two
buttons, one to start it, one to stop it.

This is the userform code

Private Sub CommandButton1_Click()
DisplayTime
End Sub

Private Sub CommandButton2_Click()
Application.OnTime nTime, "DisplayTime", , False
End Sub

and in a standrad code module

Public nTime As Double

Sub DisplayTime()
UserForm1.Label1 = Format(Now(), "dd mmm yyyy hh:mm:ss")
nTime = Now() + TimeSerial(0, 0, 1)
Application.OnTime nTime, "DisplayTime"
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"T.c.Goosen1977"
<T.c.Goosen1977.2ah8xd_1152111008.2589@excelforu m-nospam.com wrote in
message news:T.c.Goosen1977.2ah8xd_1152111008.2589@excelfo rum-nospam.com...

yes, you're right...the text box was to small...i see that the time is
current but not live...is it a lot more work to get the time running
live within the form..or do i need to install some special .dll time
file to make the second run live?


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile:
http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=558411