ERFORDERLICHE
OBJEKTE
1 Label (Label1)
1 Timer (Timer1)
FORM-CODE
Private Declare Function GetTickCount& Lib "Kernel32" ()
Private Sub Timer1_Timer()
MS = GetTickCount()
SekGesamt = MS \ 1000
Std = (SekGesamt \ 3600)
Min = (SekGesamt - (Std * 3600)) \ 60
Sek = (SekGesamt - (Std * 3600) - (Min * 60))
t = Format(Std, "00") & ":" & Format(Min, "00") & _
":" & Format(Sek, "00")
Label1.Caption = t
End Sub
|