Timer1.Interval不能超过多少?298秒执行一次按钮点击动作怎样写vb代码

Timer1.Interval不能超过多少?298秒执行一次按钮点击动作怎样写vb代码

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