Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
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
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
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
