VB6 Code - Mengetahui Lama Windows Dijalankan

Fungsi VB6 untuk mengetahui berapa lama windows telah dijalankan.

Option Explicit

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Private Sub Timer1_Timer()
    Text1.Text = Format(GetTickCount, "0") & " milisceconds"
    Text2.Text = Format(GetTickCount / 60000, "0") & " minutes"
End Sub