Windows Nekadar Süredir Açık

[DeadGhost]

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

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.

 

[Yenidenben]

Bunu Nasıl Yapacam?

 

[JooM]

Teşekkür Ederim ​