1.新建一个工程，将窗体Form1命名为yhdl，该窗体是整个程序运行后首先出现在用户面前的，用于用户登录，而且必须通过合法性的检查。将窗体的ControlBox属性设为False,标题为“用户登录”。在窗体中添加文本框(Text1)用于用户输入密码，四个个命令按钮(Command1、Command2、Command3、Command4)的标题分别为：“确认”、“取消”、“密码重置”和“注册”，创建好的窗体后，在D盘建立一文本文件config.txt，将密码保存于该文件中。将文本框的PasswordChar属性设为*，程序代码如下：

Dim i As Integer
Dim Password As String
Private Sub command４_Click()
    Open "D:\Config.txt" For Input As #1   '用二进制打开文件
    Do While Not EOF(1)
        Input #1, Password      '读取二进制文件，并保存在Password变量中
    Loop
   Close #1
    i = i + 1
If i <= 3 Then
    If Text1.Text = Password Then
  '输入正确
        Unload Me
        ksxt.Show
  'ksxt为登入成功的界面

    Else   '输入错误
        x = MsgBox("用户密码输入错误!请再输一次!", 17, "警告")
        Text1.SetFocus
    End If
Else
      Unload Me    '输入次数超过三次，卸载窗体
End If
End Sub

Private Sub command３_Click()
    Unload Me
End Sub

Private Sub command2_click()
    mmsz.Show
End Sub

Private Sub Command1_Click()
      mmsz.Show     '单击mmsz 菜单项显示密码设置窗体
End Sub

Private Sub form_load()
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
    Show
    Text1.SetFocus
    i = 0    '输入次数初始化
End Sub
2 .在工程1中，添加一窗体Form2命名为ksxt，当用户成功登入后，将跳转到该页面（你也可以添加一些提示性的文字，如：你已成功登入！等等），同时添加一按钮，用来退出登入，代码如下：

Private Sub Command1_Click()
    Unload ksxt
End Sub

3 .在工程1中，添加窗体Form3，命名为mmsz，标题为“密码设置”，当用户需要更改密码时，可以在程序中调用此窗体。这个窗体需要正确接收用户输入的密码，并且将两次输入的密码进行比较，当符合要求时将密码存入D:\Config.txt文件中。在窗体中添加文本框(text1)用于用户输入密码，添加文本框(text2)用于用户对输入的密码进行确认，，两个命令按钮(Command1、Command2)的标题分别为：“确认”、“取消”，创建好的窗体如下图所示。将两个文本框的PasswordChar属性都设为*，程序代码如下：
Private Sub Command1_Click()   '密码设置程序
   If Text1.Text = Text2.Text Then
   '确认两次输入密码是否一致
        Password = "text2.text"
        Open "D:\Config.txt" For Output As #1
        Print #1, Text1.Text
        Close #1
        Unload Me
  Else
        x = MsgBox("密码输入错误!请重新输入!", 17, "警告")
        Text2.SetFocus
  End If
End Sub

Private Sub command2_click()
   Unload Me
End Sub

Private Sub form_load()
   Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
   Show
   Text1.SetFocus
End Sub

　　　到此，一个简单的用户登入，注册注册的程序就此完成了。以上程序在windows　XP下运行成功．．．