Private Sub MDI1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Activated
        frm1.MdiParent = Me
        frm2.MdiParent = Me
        frm3.MdiParent = Me
    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, _
      ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(System.Windows.Forms.MdiLayout.ArrangeIcons)
    End Sub

Gru? aus dem Norden
manyki