Private Sub Timer1_Timer()
s = CInt(GetTickCount / 1000)
h = (s - (s Mod 3600)) / 3600
m = (s - (s Mod 60)) / 60 - (h * 60)
sc = s - (m * 60) - (h * 3600)
Label1.Caption = h & " : " & m & " : " & sc
End Sub
thx
[Ovu poruku je menjao mladenovicz dana 25.08.2004. u 10:54 GMT]