vb 这个函数如何加入次数循环?

'这里加入了代码
dim i as integer

private sub form1_load()
i=0
end sub

Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

'以下代码经过了修改
Private Sub Command2_Click()
If Text1.Text = "123456" Then
Picture1 = LoadPicture("F:\彬\mypicture\2823.gif")
MsgBox "口令正确,继续执行", , "正确"
Else
MsgBox "口令不正确,请重新输入", , "错误"
Command1_Click

'注意这里
i=i+1
if i=3 then
msgbox "口令3次不正确，将关闭程序"
end
end if

End If
End Sub

Private Sub Command3_Click()
End
End Sub

首先加入一个全局变量
Public inputerrorpasscont as integer = 0

MsgBox "口令不正确,请重新输入", , "错误" 后加上
inputerrorpasscount = inputerrorpasscount + 1
if inputerrorpasscount > 3 then
MsgBox "口令错误次数超过3次，系统退出！", ,