Real mask you password
This code mask symbol in TextBox. Nobody (unmask-programm) cant show you password. Four line of code protect you programm.
Original Author: Vitaliy Bykov
Code
'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 "*"
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.