一般我们设置登入窗体即为启动窗体：

如：一个窗体为FrmLogin.vb，我们设置它为启动窗体

当用户名和密码正确的时候，我们才进入主窗体：FrmMainWindows.vb。这样我们启动完主窗体时，FrmLogin窗体就只能是Hide了，不能将其关闭，因为关闭了就是将整个程序关闭了（它是启动窗体，将启动窗体关闭就是关闭整个程序）

我们可以在主窗体即FrmMainWindows中编写代码：

    Public Shared Sub main()
        '显示登录对话框
        Dim loginFrm As FrmLogin = New FrmLogin
        loginFrm.ShowDialog()
        '合法进入系统
        If loginFrm.bResult = True Then
            Dim frm As FrmMainWindows = New FrmMainWindows
            Application.Run(FrmMainWindows)
        End If

    End Sub

在FrmLogin中：

    Public bResult As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim badduser As New BLL.b_AddDelUser
        Dim eadduser As New Entity.e_AddUser

        eadduser.UserName = Trim(txtUser.Text)
        eadduser.UserPwd = Trim(txtPwd.Text)

        If (badduser.CheckUser(eadduser)) Then
            bResult = True
            Me.Close()
        Else
            MsgBox("请输入正确的用户名和密码！", , "提示")
            txtUser.Focus()
            Exit Sub
        End If
    End Sub

再将启动项设置为Sub Main

这样成功登录后，登录窗体即可释放
作者：wulingmin21