'-------------------------------------------------
'
' Code by Wade Reynolds, 2000
'
' "Password Textbox That Does Not Store The Password"
'
' Create a new project with a form,
' textbox (Text1), and a label (Label1).
'
' (Label1 exists only to show you what is in strPassword.)
'
' Copy and paste the following code into Form1's
' code window.
'
' Enjoy!
'
'-------------------------------------------------


Dim strPassword As String 'Stores the password typed into the locked textbox

Private Sub Form_Load()
Text1.Locked = True 'The control is locked, but we can still set focus and 'type' into it.
Text1.PasswordChar = "*" 'Sets the textbox as a password box using * as the mask character
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = vbKeyBack
If Text1.Text = "" Then 'If nothing in Text1 (or in strPassword), ignore the backspace subroutine
Else
strPassword = Left(strPassword, (Len(strPassword) - 1)) 'Erase the last character from strPassword
Text1.Text = Left(Text1.Text, (Len(Text1.Text) - 1)) 'Erase the last 'character' from Text1
Label1.Caption = strPassword 'Update Label1
End If
Case 9 To 47, 112 To 127

Case Else
Text1.Text = Text1.Text & Text1.PasswordChar 'Add a 'character' into Text1.Text
strPassword = strPassword & Chr(KeyCode) 'Add the new character to strPassword
Label1.Caption = strPassword 'Update Label1
End Select
End Sub