Timer1.Interval最大数可是3000
Timer.interval=1000
Private Sub Timer1_Timer()
a =a+ 1
If a >= 298 Then
Command1_Click
a = 0
End If
End Sub
Dim IntJs As Integer
Private Sub Command1_Click()
'代码
End Sub
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Timer()
IntJs = IntJs + 1
If IntJs * 2 >= 298 Then
Command1_Click
IntJs = 0
End If
End Sub
