打开新窗体时关闭原有窗体

一直没有找到在打开新窗体时关闭原有窗体的方法，今天试了一种方法来解决了这个问题所以就分享一下。作为一个新人也要写点东西啊，所以借此机会写点东西。

我做的是一个登录后关闭当前登录窗体进入主窗体

1 我在主窗体中的Load事件中 创建登录窗体

   Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frm As New frmLogin
        frm.ShowDialog()

2 在登录窗体中做一下修改  我如果关闭窗体就关闭程序 

   Application.Exit()

   但是问题出现了 ，我登录成功也要关闭窗体的,就也会结束程序。

3 所以我登录成功是 把登录按钮的 btnLogin.Enabled = False  然后就可以在关闭窗体事件中判断如下就可以了

    If btnLogin.Enabled = True Then
            Application.Exit()
        End If

 这样也就可以了 即关闭了当前窗体 又打开了新窗体。