''' <summary>

''' Common method for automatically launching a form and making it an MDI child.

''' If the form exist in the _MDI collection then show it to the user instead.

''' This functionality could be controlled by passing a 2nd parameter

''' </summary>

''' <param name="FormType"></param>

''' <remarks></remarks>

Private Sub LaunchForm(ByVal FormType As System.Type)

     '-- Establish Locals

     Dim loForm As Form

     '-- Create the form

     loForm = CType(Activator.CreateInstance(FormType), Form)

     For Each currentForm As Form In Me._MDI.Controls

          If currentForm.Name = loForm.Name Then

               '-- If the form is minimized then restore it.

               If currentForm.WindowState = FormWindowState.Minimized Then

               End If

               '-- Show the form on top of the others.

               Exit Sub

          End If

     Next

     '-- Set the MDI parent

     loForm.MdiParent = Me

     '-- Show the form

End Sub