FECHAR FORMFILHO PARA ABRIR OUTRO

Private Sub OpenForm(ByVal openForm As Form)
   
    For Each form As Form In Me.MdiChildren
        form.close()
    Next
   
        openForm.MdiParent = Me
        openForm.MaximizeBox = False
        openForm.FormBorderStyle = FormBorderStyle.Fixed3D
        openForm.StartPosition = FormStartPosition.CenterScreen
        openForm.Show()
 End Sub