vb怎么每隔一秒自动点击按钮

vb怎么每隔一秒自动点击按钮

先在窗体上放两个commandbutton和一个timer控件 代码 如下：
Option Explicit

Private Sub Command1_Click()           '这里是命令按钮1的单击事件
MsgBox ""
End Sub

Private Sub Command2_Click()          '单击命令按钮2将会关闭timer的调用
Timer1.Enabled = False
End Sub

Private Sub Form_Load()               '设置一秒
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()            '每过一秒调用一次命令按钮1的单击事件
Call Command1_Click
End Sub程序代码win7+vb6.0下运行正常 望采纳

追问：程序里已经有了Command1_Click() 是采集数据的按钮，我想用一个每秒触发一次的时钟控件控制每秒自动点击一次Command1_Click()来实时采集数据。要求时钟控件默认是关闭的，就是我刚开软件的时候不自动点击Command1_Click()。然后建一个Command2_Click()，来开启自动点击事件，建一个Command3_Click()来关闭自点击事件。能用立刻采纳给分。
追答：赞！

VB可使用Timer控件的Timer事件实现执行按钮的Click事件来实现。
Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
Timer 事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。
实例代码：
Option Explicit
    Dim i As Long
    
Private Sub Command1_Click()
    Me.Cls
    i = i + 1
    Me.Print i
End Sub
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Command1_Click
End Sub