this should work for the rest of you progam also
Code:
'in form_load
sessionstart = now

'in timer
sessionHour.Caption = Format(now - sessionstart, "hh")
sessionMinute.Caption = Format(Now - SessionStart, "nn")
sessionSecond.Caption = Format(Now - SessionStart, "ss")
sessiontime.Caption = Format(Now - SessionStart, "hh:mm:ss")
notice the hh,nn,ss in the format causes the display of 01,02,03,etc
dates are sim. to times, just diff args in the " " part.

yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second

hope this helps you...

NOTE: this code may cause problems on the time change at midnight.

[Edited by _bman_ on 04-08-2000 at 04:24 AM]