Звездочки в текстовом поле.

Предположим, вы хотите добавить в вашу программу доступ по паролю.
У вас есть текстовое поле, в которов вы набираете пароль, скрывающийся за звездочками.
Но существует много программ, которые с легкостью показывают текст, скрытый за звездочками.
Небольшой совет:

в разделе формы General Declarations объявите переменную, которая будет содержать код:
Dim pswd As String

в свойствах текстового поля установите в PasswordChar звёздочку "*".
Теперь кликните по текстовому полю два раза и выберите событие Text1_KeyPress, впишите:

Private Sub Text1_KeyPress(KeyAscii As Integer)
pswd = pswd + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub

Теперь нажатия будут отлавливаться, а передоваться будут текстовому полю только звёздочки!
И программа-взломщик пароль уже не достанет!!!