Public Sub openchild(ByVal nextchild) 
        CloseView()  'schliest aktives child z.B. form2
        Dim NewMDIChild As New [u]nextchild() ' und hier ist das Problem 
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()
    End Sub