谁能帮我编写一个简单的程序

就是鼠标自动点击5个位置，都是单击时间间隔1秒点一次
如此循环按下command1开始在按下就停止
5个位置的鼠标坐标我自己找就可以
现在只能循环点击两个点，再多就不会编了

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
Timer2.Interval = 1000
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim a As Integer
Static b As Integer
' a = Val(Text1.Text)
' b = 0
' Do Until b = a
b = b + 1
SetCursorPos 916, 535
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Print "click " & b
' Loop
End Sub

Private Sub Timer2_Timer()
Dim a As Integer
Static b As Integer
SetCursorPos 208, 642
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Print "click " & b
' Loop
End Sub

--------------------编程问答-------------------- 用循环



Private Sub Timer1_Timer()

for i=0 to j-1'j为几个点

select case i

case 1

Dim a As Integer

Static b As Integer

SetCursorPos 208, 642

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Print "click " & b

case 2

case 3

case 4

.

.

.

.

end select

if x=j-1 then

x=0

end if

next

End Sub

--------------------编程问答-------------------- 这个失误 case 0开始~ --------------------编程问答-------------------- 谢谢，我把你的代码整个的贴到了timer1
运行后只点击一个位置
怎样点5个位置其他的坐标从哪里填 SetCursorPos 208, 642就这个
Private Sub Timer1_Timer()
For i = 0 To 5 - 1
Select Case i
Case 0
Dim a As Integer
Static b As Integer
SetCursorPos 208, 642
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Print "click " & b
Case 1
Case 2
Case 3
Case 4
Case 5
End Select
If x = 5 - 1 Then
x = 0
End If
Next
End Sub

--------------------编程问答-------------------- 自己顶起 --------------------编程问答-------------------- 建议不要用for循环
使用静态变量加载窗体时设为0
然后在timer事件里加入如下判断
if num>5 then num=1
select case num
case 1
.
.
.
end select
num=num+1

补充：VB ,  基础类