验证form的问题

Question

我在工程里加入了一个验证form,名为frmLogin.
在form_load里加入如下语句:
    frmLogin.Show vbModal
    If frmLogin.LoginSucceeded = True Then
    Else
        Exit Sub
    End If
    ...
可是当frmLogin.LoginSucceeded的值为false时,退出了form_load函数,可是程序界面仍能load出来,并且能正常工作.
怎么办?
我希望用户输入三次用户名和密码,如还不正确,则退出程序.
请帮忙.

Answer 1

定义一个变量，如果用户输入错误变量加一，到三后END

Answer 2

If frmLogin.LoginSucceeded = True Then
     frmmain.show
Else
     txtpassword.SetFocus
End If
'希望用户输入三次用户名和密码,如还不正确,则退出程序
miCount = miCount + 1
    If miCount = 4 Then
        MsgBox "对不起，您输入的密码错误三次！如果想了解更多，请与我联系！", vbOKOnly + vbExclamation, "提醒"
        Me.unload
    End If