用VB怎样计算已开机的时间?

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

Private Sub Form_Load()
Dim lTime As Long
lTime = GetTickCount
MsgBox "系统已经运行了" & lTime & "毫秒"
End Sub

'剩下的就是换算时间了。

GetTick()