Como usar um TextBox para a digitação de senhas

'Este exemplo mostra como usar um TextBox
'para a digitação de senhas. 

'Para transformar um TextBox em uma caixa de senhas
'só precisamos definir um caractere, por exemplo "*",
'para a propriedade PasswordChar. Opcionamente você
'poderá definir o valor Lower para a propriedade
'CharacterCasing. Isso fará com que a senha informada
'pelo usuário esteja sempre em letras minúsculas.

Public Class Form1
  
  Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
    'Transforma o TextBox em caixa de senha
    TextBox1.PasswordChar = "*"

    'Aceita somente letras minúsculas
    TextBox1.CharacterCasing = CharacterCasing.Lower
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    'Obtém a senha digitada
    Dim senha As String = TextBox1.Text

    'Exibe o resultado
    MsgBox("A senha informada foi: " & senha)

  End Sub

End Class