Problem opening a new instance of a form after its been closed mdi

VB.net 2005
I am using DevExpress but you can switch out the things shown in my code with a regular button or navbar/menu item there is nothing devexpress specific in this question.  I am using it mostly for its layout manager and look and feel support.

OK I have an MDI application.  What I do is when an navitem is clicked I open up a form this form has a bunch of questions on it, the user answers those questions it is validated the results are added to my record class and  that form is hidden and the next form is opened up with more questions for them to answer, my plan is when they get to the final form (I only have 2 question forms and the main form so far),  I will write the record class to a database.

There are and will be more forms unrelated to this set of AddClient forms but it does not pertain to the question.

Looks kind of like this

FrmMain(addClient link clicked)---> FrmAddClient1 opened in FrmMain, 'next button' clicked---->Frmaddclient1 is hidden and FrmAddClient2 is shown in FrmMain etc.

I have a back button on FrmAddClient2 which hides that form and shows FrmaddClient1 again, there they can edit what they had done before and proceed on if they wish.  

Say the user decides to press the cancel button or close either of the child addClientForms, well then I prompt the user in the closing event to give them a chance to cancel or all data will be lost and the form closes.

The problem is once the form closes I can not open up a new instance of FrmAddClient1 when I click the navbar on the main form.

Can somebody show me why once I close my form I am unable to open another one?

My desire is to only hide the forms as they are going through so that they can use the back button to edit previous data.  However if they close any of the question forms I wish them destroyed so I can open up a new instance.

Hope that makes sense.

William

#### Here is FrmMain (MDI parent form) ######
 
Public Class FrmMain
    Public WithEvents frm1 As frmAddClient1
    Public WithEvents frm2 As FrmAddClient2
 
    Private Sub NavBarItem1_LinkClicked(ByVal sender As System.Object, ByVal e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem1.LinkClicked
 
        For Each fChildren As Form In MdiChildren
            If (TypeOf fChildren Is frmAddClient1) Then
                MessageBox.Show("You may only add one client at a time", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Return
            End If
        Next
 
        FormHandler("frm1")
 
    End Sub
 
    Public Sub FormHandler(ByVal frmName As String)
        Select Case frmName
            Case "frm1"
                If frm1 Is Nothing Then
                    frm1 = New frmAddClient1
                    frm1.MdiParent = Me
                End If
 
                If Not frm2 Is Nothing Then
                    frm2.Hide()
                End If
 
                frm1.Show()
            Case "frm2"
                If frm2 Is Nothing Then
                    frm2 = New FrmAddClient2
                    frm2.MdiParent = Me
                End If
 
                If Not frm1 Is Nothing Then
                    frm1.Hide()
                End If
 
                frm2.Show()
            Case Else
 
        End Select
 
    End Sub
 
End Class
 
 
 
####### FrmAddClient1########
Public Class frmAddClient1
    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextButton.Click
        Me.ValidateChildren()
        If DxErrorProvider1.HasErrors Then
            MessageBox.Show("Please fix all errors to continue.")
        Else
##I add stuff to my record class here##
            Dim myParent = Me.MdiParent
            myParent.FormHandler("frm2")
 
        End If
    End Sub
    Private Sub FrmAddClient1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
 
        Me.Activate()
        Dim button As DialogResult = MessageBox.Show("Closing this form will result in the loss of all unsaved data,", "Closing form", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If button = Windows.Forms.DialogResult.Cancel Then
            e.Cancel = True
        ElseIf button = Windows.Forms.DialogResult.OK Then
            e.Cancel = False
        End If
    End Sub
End Class
 
 
###########FrmAddClient2############
##looks much the same as FrmAddClient1, but has a back button##
 
Public Class FrmAddClient2
 
    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackButton.Click
        Dim myParent = Me.MdiParent
        myParent.FormHandler("frm1")
    End Sub
End Class

Select allOpen in new window