Private Sub FensterToolStripMenuItem_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles FensterToolStripMenuItem.Click
        'Dim b As New MenuItem
        'b.MdiListItem.MdiList = True
        SetMDIList()
    End Sub  
Public Sub SetMDIList()
        ' Create the MenuItem to be used to display an MDI list.
        Dim menuItem1 As New MenuItem()
        ' Set this menu item to be used as an MDI list.
        menuItem1.MdiList = True
    End Sub

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht