Public Sub openchild(ByVal nextchild as Form) 
        CloseView()  'schliest aktives child z.B. form2
        nextchild.MdiParent = Me
        nextchild.Show()
    End Sub

Me.MdiParent.openchild(New Form3())

Dim nextchild as new Form3()
nextchild.MdiParent = Me.MdiParent
nextchild.Show()
Me.Close

--------------------------------------

Ich suche zur Zeit VB6 Programmierer. Infos: Dieser Forums-Thread