How to show the password in msgbox remaining input number-CodePudding

Trouble ask how to write
In addition to written in an article a method
And what kind of method can display the number of remaining input password,

CodePudding user response:

 
Private sub command1_click () 
Dim TXTPWD as string 
TXTPWD="000000" 
The static as a integer 
If text1. Text & lt;> TXTPWD then 
A=a + 1 
Text1. Text="" 
Msgbox "password error" & amp; A. & amp; "Time, please enter again.", 0, "tip" 
If a=3 then 
Msgbox "password mistake too many," 0, "tip" 
Unload me 
End the if 
The else 
Me. Hide 
Form1. Show 
End the if 

End sub