Option Explicit

 

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

 

Private Sub Form_Load()

 

  Dim a_hour, a_minute, a_second

 

  a = Format(GetTickCount() / 1000, "0") 'всего секунд

  a_hour = Int(a / 3600)

  a = a - a_hour * 3600

  a_minute = Int(a / 60)

  a_second = a - a_minute * 60

  Call MsgBox("Ваш компьютер с момента загрузки работает " & Str(a_hour) & " часов " & Str(a_minute) & " минут" & Str(a_second) & " секунд", vbInformation)

 

End Sub