Nothing

这样不好吧，计算程序用时最好别用Timer控件，使用下面的方法
Dim lngTimer As Long
lngTimer = Timer
'程序运算过程
'你和过程
For i = 0 To 100000
Next i
'运算结束

MsgBox "共用时" & Format(Timer - lngTimer, "0.000") & "秒"