Private Sub Form_Load()
Dim lngCount As Long
Dim lngHours As Long
Dim lngMinutes As Long
lngCount = GetTickCount
lngHours = ((lngCount / 1000) / 60) / 60
lngMinutes = ((lngCount / 1000) / 60) Mod 60
MsgBox "Datorn har varit igång i " & lngHours & " timmar och " & lngMinutes & " minuter."
End Sub