Propiedad UseSystemPasswordChar

Cuando el usuario esté introduciendo su contraseña, bien en el registro bien en el acceso, la clave estará oculta por puntos o cualquier otro carácter, pero has de ingeniártelas con una manera para que el usuario pueda, en un momento dado, ver la contraseña:

Cuando pase el ratón por encima del control que utilices el usuario verá su texto en claro en la misma caja o en un tooltip.

Un botón, justo a la derecha del control que al hacer clic cambiará a visible o no visible la propiedad que permite ver los caracteres introducidos.

TextBox.UseSystemPasswordChar (Propiedad) obtiene o establece un valor que indica si el texto del control TextBox debe aparecer como el carácter de contraseña predeterminado. true si el texto del control TextBox debería aparecer como el carácter de contraseña predeterminado; de lo contrario, false.

Puedes descargarte la interfaz aqui

Método 1, crea un botón junto al textBox de la contraseña. Al dar al botón se vera o escondera el contenido.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If txtContrasena.UseSystemPasswordChar = True Then
            txtContrasena.UseSystemPasswordChar = False
        Else
            txtContrasena.UseSystemPasswordChar = True
        End If
    End Sub

Método 2 que cada vez que pase el puntero sobre el textBox se vea el contenido.

Private Sub txtContrasenaNueva_MouseEnter(sender As Object, e As EventArgs) Handles txtContrasenaNueva.MouseEnter
        If txtContrasenaNueva.UseSystemPasswordChar = True Then
            txtContrasenaNueva.UseSystemPasswordChar = False
        Else
            txtContrasenaNueva.UseSystemPasswordChar = True
        End If
    End Sub
    Private Sub txtConfirmeContrasena_MouseEnter(sender As Object, e As EventArgs) Handles txtConfirmeContrasena.MouseEnter
        If txtConfirmeContrasena.UseSystemPasswordChar = True Then
            txtConfirmeContrasena.UseSystemPasswordChar = False
        Else
            txtConfirmeContrasena.UseSystemPasswordChar = True
        End If
    End Sub