Closing the Main Form , without Closing the Application.

[dynamic_sysop]

Hi guys n gals , i have knocked up a little bit of code which may provide usefull.
i guess most people are aware that if you try closing your Main Form, while trying to leave a second Form open ( ie: Form2.Show , Form1.Close ) , you end up with the Application closing completely. well not anymore
in a Module ( with a Sub Main set as the Start-up object ) ...

'/// add a module to your application , then set it's Sub Main as your start-up object
Imports System.Windows.Forms
 
Module Module1
    Sub main()
        Dim frmMain As New Form1
        frmMain.Show()
        Application.Run() '/// NOTE : i run the application without a start-up Main form.
    End Sub
End Module

in Form1 ( which will load as your default form in this instance ) ...

Private closeApp As Boolean = True
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        closeapp = False
        Dim frm2 As New Form2
        frm2.Show()
        Me.Close()
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If closeApp Then
            Application.Exit()
        End If
    End Sub

Form2 will now show and Form1 will close without the Application exiting , in form2 , to close the app i put a simple ...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Application.Exit()
    End Sub

included is a sample source.