dim p as integerprivate sub command1_click()if text1="123456" thenmsgbox "通过"elsep=p+1msgbox "密码错误 " & p & " 次"if p>3 thenmsgbox "密码错误超过 3 次!"endend ifend ifend sub
最简单的方法,超过三次就退出或者禁用具体把你用的代码发上来,帮你修改
是输入框enable属性为false,或者直接退出