Private Sub LaunchForm(ByVal FormType As System.Type)

'-- Establish Locals

Dim loForm As Form

'-- Create the form

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

'-- Set the MDI parent

loForm.MdiParent = Me

'-- Show the form

End Sub

#End Region

#Region " Handled Events "

''' <summary>

''' Launch the customers maintenance form

''' </summary>

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

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

''' <remarks></remarks>

Private Sub cmdCustomers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCustomers.Click

Me.LaunchForm(GetType(CustomerMaintenance))

End Sub