Mostrar contraseña TextBox

Public Class clave

    Private passChar As Char = "?"

    Private Sub clave_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TBclave.PasswordChar = passChar
    End Sub

    Private Sub CBclave_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBclave.CheckedChanged
        If CBclave.Checked Then
            TBclave.PasswordChar = ""
        Else
            TBclave.PasswordChar = passChar
        End If
    End Sub

End Class