小弟我这里有2个计时器，找高手鉴定一上哪个性能更好一点

我这里有2个计时器，找高手鉴定一下哪个性能更好一点。

Option Explicit

Dim x As Long

Dim m As Long, s As Long

Dim cjlm As Long, cjls As Long


Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub


Private Sub Timer1_Timer()           

x = x + 1000 

cjlm = Int(((x Mod 3600000) / 60000))  

m = cjlm '取得分钟

cjls = Int(((x Mod 3600000) Mod 60000) / 1000)

s = cjls '取得秒种

Label1.Caption = IIf(Len(Trim(Str(m))) < 2, "0" & Trim(Str(m)), Trim(Str(m))) + ":" + IIf(Len(Trim(Str(s))) < 2, "0" & Trim(Str(s)), Trim(Str(s)))

End Sub

------解决方案--------------------
我一般用第二种，何必费那么多劲去自己计算，而且像你第一种一次就加1000是不是太大了？！运行时间长的话变量会溢出……
------解决方案--------------------
更准确的记时的话用API会更合适，印象中好象有个gettickcount的函数可以实现，因为在家的关系无法举实例，需要你自行找一下。