如果用VB设计一个登录器，要求将初始密码设为1234，并可以修改该密码，请问该如何编写

Option Explicit

Public LoginSucceeded As Boolean
Public userID, userpsd As String
Public admin, adminpsd As String
Public saveid, savepsd, savecon As String

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Form1.Enabled = True
Me.Hide
End Sub

Private Sub cmdOK_Click()
'检查正确的密码
if txtUserName = "administrator" And txtPassword = "1234" Then
LoginSucceeded = True
Me.Hide
MsgBox "登录成功"
Form1.Enabled = True
Else
MsgBox "无效的密码，请重试!", , "登录"
txtUserName.SetFocus
txtUserName = ""
txtPassword = ""
SendKeys "{Home}+{End}"
End If
txtUserName = ""
txtPassword = ""
End Sub

Pr