7,759
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Static counter As Integer
If txtPassword.Text <> "123456" Then
MsgBox "密码错误!!!" & "登陆次数" & counter + 1, 16
counter = counter + 1
End If
If counter = 3 Then
Unload Me
End If
End Sub