dim i as long
Private Sub Command1_Click()
i=1'循环计数变量,定义为全局变量
Me.Timer1.Enabled = True'开定时器
End Sub
'定时器时间可以设为 100 以内, 以尽量快点。精度是100
Private Sub Timer1_Timer()
i=i+1 '计数变量加1
if i>1000 then'达到循环次数 timer1.Enabled = False'关定时器 exit sub'停止本次循环
end if
'循环体的代码