只爱陌生人

我想在程序中计算处理过程用了多少时间,所以就用了一个timer控件,哪知才遇到一个莫名其妙的问题.如下:
public timeused as  integer '用于计时
private sub form_load()
            ……
           timer1.enabled =false
           timer1.interval=1000
end sub
private sub timer1_timer()
     timeused =timeused +1
end sub
private sub command1_click()
          ……
          timer1.enabled=false    ’计时停止
          msgbox "共用时：" & timeused  &" 秒"
end sub
private sub command2_click()
     timer1.enabled=true   ‘开始计时
    timeused=0   '初始化
end sub
这段代码照理说没有错呀。而且在新建一个工程来单独测试timer的时候,也能得到正确的结果，只是在结合到我的程序之后，就不行了，每次都得到："共用时 0秒"的结果 ，不知道问题出在哪里。
          在程序的其它地方根本就没有用到timer1以及所涉及到的变量！

Nothing

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

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

只爱陌生人

哦，用时间的差值来算呀！
谢谢，这倒是个不错的方法1