Mit GetTickCount erhalten Sie die Zeit in Millisekunden, die seit dem Start des Betriebssytems vergangen ist.
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Sub Form_Load()
Dim lngTickCount As Long
lngTickCount = GetTickCount
Call MsgBox("You have been using your computer for:" & _
vbNewLine & " * " & CStr(lngTickCount) & " milliseconds, or" & _
vbNewLine & " * " & CStr(Round(lngTickCount / 1000)) & " seconds, or" & _
vbNewLine & " * " & CStr(Round((lngTickCount / 1000) / 60)) & " minutes", vbInformation)
End Sub
