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