请详细介绍一下VB中计时器的用法

先设置一下
Private Form_Load()'Form1调入内存的时侯
With Timer1
.Interval=1000 '每次触发Timer事件的间隔,单位为毫秒(0.001s),最大65535
.Enabled=True '是否启用
End With
End Sub
Private Timer1_Timer()'每次触发的事件
.........'自己弄
End Sub

比如说:
每隔3秒就+1
Private Form_Load()
With Timer1
.Interval=3000
.Enabled=True
End With
End Sub
Private Timer1_Timer()
Dim x As Long
x=x+1
Label1.Caption=x
End Sub

是timer工具箱里的“时钟”吧~~~~
没什么的，最主要的是Interval这个属性，设置为1000，就是“每一秒”的意思~~~~~~
你可以根据你想要的来实现你的操作。
比如下面：
先设置Interval为1000，然后写以下代码：
Private Sub Timer1_Timer()
Print "1" '这里写你想要的操作，这里是每一秒输出“1”。
End Sub

你可以试一下