文件>新建工程>标准EXE（主窗体改名成：frmMain）工程>添加窗体>登陆对话框（frmLogin）工程>工程 属性>启动对象 设置为 frmLogin================================================================frmMain的代码：根据需要================================================================frmLogin的代码：Option ExplicitPublic LoginTime As SinglePrivate Sub cmdCancel_Click()
EndEnd SubPrivate Sub cmdOK_Click()
If txtPassword = "password" Then
Me.Hide
FrmMain.Show
Else
LoginTime = LoginTime + 1
If LoginTime >= 3 Then
MsgBox "已经输错3次密码，程序退出！", , "登录"
End
End If
MsgBox "无效的密码，请重试！", , "登录"
txtPassword.Text = ""
txtPassword.SetFocus
End IfEnd Sub================================================================注：如果要用户名验证则自己添加验证语句，如果不用的话把相关的对象删除就可以了。
