Código en VB para conocer cuánto tiempo lleva el Windows ejecutándose desde que lo abriste.

Añade la siguiente función en un módulo o en las declaraciones generales del "Form1" o cualquier otro formulario:

Declare Function GetTickCount& Lib "kernel32" () (para un módulo)

o escribe:

Private Declare Function GetTickCount Lib "kernel32" () As Long (para un formulario)

Agrega una etiqueta al formulario (Label1), un temporizados (Timer1) y cambia la propiedad del Interval de Timer1 a 1. Luego coloca el siguiente código dentro del Timer1:

Private Sub Timer1_Timer()
Const TiempoWindows_POR_HORA = TiempoWindows_POR_MINUTO * 60 '1 hora tiene 60 minutos
Const TiempoWindows_POR_MINUTO = TIEMPO_EN_SEGUNDOS * 60 '1 Minuto tiene 60 segundos
Const TIEMPO_EN_SEGUNDOS As Long = 1000 'Variable del tiempo en milisegundos

Dim TiempoWindows As Long 'Declaración de variable
Dim segs As Long
Dim minutos As Long
Dim horas As Long

TiempoWindows = GetTickCount() 'Busca por cuanto tiempo Windows ha sido ejecutado
horas = TiempoWindows \ TiempoWindows_POR_HORA
TiempoWindows = TiempoWindows - horas * TiempoWindows_POR_HORA
minutos = TiempoWindows \ TiempoWindows_POR_MINUTO
TiempoWindows = TiempoWindows - minutos * TiempoWindows_POR_MINUTO
segs = TiempoWindows \ TIEMPO_EN_SEGUNDOS 'Selecciona el parámetro referido a los segundos
TiempoWindows = TiempoWindows - segs * TIEMPO_EN_SEGUNDOS
Label1.Caption = Format$(horas) & " hora(s)" & Chr(10) & Format$(minutos) &_
" minutos" & Chr(10) & Format$(segs) & " segundos" 'Imprime en pantalla tiempo que windows ha sido ejecutado
End Sub