先上成品：
制作过程：
1.先创建控件：
我创建了5个控件，其中一个用于显示信息，另外四个功能（画红圈的），一看图就知道
2.写代码
代码如下：
Option Explicit
Dim state As Boolean
Private Sub Command1_Click()
If Text2.Text = "pas123" Then
Form_inf.Hide
Form1.Show
Else
MsgBox "密码错误！", 16, "提示"
End If
End Sub
Private Sub Form_Load()
state = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Label2_Click()
If state = True Then
Text2.PasswordChar = ""
Label2.Caption = "隐藏密码"
state = False
Else
Text2.PasswordChar = "*"
Label2.Caption = "显示密码"
state = True
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub只要理解了你可以根据自己需要进行修改，例如：密码隐藏符号可以改为其他，如：‘#’，也可以添加多个密码，甚至输入不同密码来实现不同功能