假定密码文本框的名称叫Text1，设置密码是否明文显示的复选框按钮叫Check1，在Check1的Click事件中写代码：
Private Sub Check1_Click()
If Check1.Value Then
Text1.PasswordChar = "*"
Else
Text1.PasswordChar = ""
End If
End Sub
楼上的代码似乎有点小问题，在此我介绍一种简单的方法，使用IIF函数，只需一句话即可完成：
仍然假设向里输入密码的是Text1，当Check1选中时使用明文密码。
Private Sub Check1_Click()
Text1.PasswordChar = IIF(Check1.Value = 1, "", "*")
End Sub
