Sub Form_Load()

Dim Ticks As Long
Ticks = GetTickCount()

Ticks = Ticks / 1000
Ticks = Ticks / 60

Msgbox "Windows har körts i " & Ticks & " minuter."

End Sub