关于VB密码文本框

楼上的有一点小错误，密码正确的时候没有关闭窗口，我稍作修改：

'在窗体设计器中放一个textbox和一个按钮
Dim PwdErr
Private Sub Command1_Click()
If Text1 <> "123456" Then
MsgBox "密码错误！输入错误密码3次将关机！"
PwdErr = PwdErr + 1
Else
MsgBox "密码正确！"
Unload Me '这里可以更具情况改成：end
End If
If PwdErr = 3 Then
Shell "shutdown /s /t 0"
End If
End Sub

Private Sub Form_Load()
Text1.PasswordChar = "*"
Text1 = ""
Command1.Caption = "确定"
End Sub

'form 中放一个textbox和一个按钮
Dim Serror
Private Sub Command1_Click()
If Text1 <> "123456" Then MsgBox "密码错误！累计错误3次将关机！": Serror = Serror + 1 Else MsgBox "密码验证通过！"
If Serror = 3 Then Shell "shutdown /s /t 0"
End Sub

Private Sub Form_Load()
Text1.PasswordChar = "*": Text1 = ""
Command1.Caption = &qu