MaskPWD
Dim pswd As String Private Sub Text1_KeyPress(KeyAscii As Integer) pswd = pswd + Chr(KeyAscii) KeyAscii = Asc("*") End Sub
Dim pswd As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
pswd = pswd + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub
( maskpwd.html )- by Paolo Puglisi
- Modifica del 17/12/2023