show password by checkbox

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox2.PasswordChar = "*" end sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TextBox2.PasswordChar = "" Else TextBox2.PasswordChar = "*" End If