Real mask you password
This code mask symbol in TextBox. Nobody (unmask-programm) cant show you password. Four line of code protect you programm.
Rate Real mask you password
(6(6 Vote))
'Place at Form TextBox.
'General Declarations
Dim pswd As String
'
Private Sub Text1_KeyPress(KeyAscii As Integer)
pswd = pswd + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub
'You can replace string KeyAscii = Asc("*") to
'KeyAscii = 0 and TextBox is no symbols "*"
Real mask you password Comments
No comments yet — be the first to post one!
Post a Comment