如何vb的口令登录应用

Question

做2 个窗口
一个有用户名 口令有确定健和取消
如果密码对显示信息已成功进入应用程序
如果不对 显示第二个窗口:
请重新输入

Answer 1

主窗体
Private Sub Form_Load()
Form2.Show 1
End Sub验证窗体的提交按钮
Private Sub Command1_Click()
'验证密码，在注册表或者数据库或者文件中保存的密码
If 验证成功 Then
Form2.Hide
Else
Form2.Caption = "密码不正确，请重新输入"
Form2.txtpass.Text = ""
Form2.txtuser.Text = ""
End If
End Sub

Answer 2

最好使用Sub Maindim Login as FrmLogig
  if Login.Ok=true then '登陆成功
    dim Main as FrmMain
     Main.show 
   else               '登陆失败
       end
  end if   这种格式更适合大的工程！