• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Real mask you password

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

• 1
• 2
• 3
• 4
• 5

(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 "*"