比如想知道加法一百次运算的时间，如何做计时器自动计时

Private Declare Function GetTickCount Lib "kernel32" () As Long
   
Private Sub Pause(ByVal sSec As Long)
          Dim StartSec     As Long
          StartSec = GetTickCount()
          While (GetTickCount() - StartSec) / 1000 < sSec
              DoEvents
          Wend
End Sub

Private Sub Command1_Click()
    MsgBox "开始"
    t = Timer
    Pause 2
MsgBox Timer - t & "秒"
End Sub

Dim t As Date
Private Sub Form_Load()
t = Now
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim i As Integer, h As Integer, m As Integer, s As Integer
i = DateDiff("s", t, Now)
h = i \ 3600
m = i \ 60
s = i Mod 60
Label1.Caption = "程序已经运行" & h & "小时" & m & "分钟" & s & "秒"
End Sub