VB点击按钮第一次,弹出一个窗口,再点击10次后，再弹出另一个窗口

Question

VB点击按钮第一次,弹出一个窗口,再点击10次后，再弹出另一个窗口
例如：当我点击这个按钮第一次的时候，弹出提示：工具有错，
再连续点击10次或者5次以后，弹出另外一个窗口内容提示：工具正常
这样代码应该怎么写？我是新手，麻烦各位大哥们知道的回答下，谢谢了
能给段完整的代码？大哥？

Answer 1

简单，这样写就行
Sub Command1_Click()
Static i As Integer

i = i + 1

If i = 1 Then Form1.Show : Msgbox "工具有错"

If i = 5 Or i = 10 Then Form2.Show : Msgbox "工具正常"
End Sub

Answer 2

sub cmd1_click()
static a as long
a=a+1
if a=1 then msgbox "start"
if a>=5 then
msgbox "ok"
a=0
end if
end sub

Answer 3

public a
在按钮上写
a=a+1
if a=1 then form1.show
if a=5 then form2.show
好久没用，大概是这样