VB Code:
'Put that in a timer
Dim d As Integer
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim TimeStamp As String
'Get milliseconds from API
iTick = GetTickCount
'Convert milliseconds in days, hrs, mins, secs
d = iTick \ 86400000
h = (iTick Mod 86400000) \ 3600000
m = ((iTick Mod 86400000) Mod 3600000) \ 60000
s = (((iTick Mod 86400000) Mod 3600000) Mod 60000) \ 1000
'Create a "time stamp" string
TimeStamp = Format(d, "###0 Days. ") & _
Format(h, "#0h. ") & _
Format(m, "00min. ") & _
Format(s, "00sec")
text1.text= TimeStamp
'Module :
Public Declare Function GetTickCount Lib "kernel32" _
() As Long