|
windows ne kadar süredir açık
Private Declare Function GetTickCount_ Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim t
t = GetTickCount&
Caption = (t 1440000) & ":"
t = t Mod (60000 * 24)
Caption = Caption & (t 60000) & ":"
t = t Mod (60000)
Caption = Caption & (t 1000)
End Sub
|
