Module Module1
 
    Public MDI As New MDIParent
    Public Andereform As New Andereform
    Public Anderechildform As New Anderechildform
 
    Public Sub main()
        andereform.Show()
        Application.Run(MDI)
    End Sub
End Module

        Me.TopLevel = False

    Private Sub AndereForm_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Click
        MDI.Controls.Add(New AndereChildForm)
        MDI.Controls.Item(0).Show()
    End Sub