Public Class MyControl
    Inherits System.Windows.Forms.Control
    '...
End Class

Public Class MyComponent
    Inherits System.ComponentModel.Component
 
    '...
 
    Private xItems As System.Collections.ObjectModel.Collection(Of MyControl)
    <Category("Daten")> _
    Public ReadOnly Property Items() As _
    System.Collections.ObjectModel.Collection(Of MyControl)
        Get
            Return Me.xItems
        End Get
    End Property
 
    '...
End Class

Private Sub InitializeComponent()
        Me.MyComponent1 = New ContextMenuBlack.MyComponent
        Me.MyControl1 = New ContextMenuBlack.MyControl
        Me.MyControl2 = New ContextMenuBlack.MyControl
        Me.SuspendLayout()
        '
        'MyComponent1
        '
        Me.MyComponent1.CheckOnClick = False
        Me.MyComponent1.Font = [...]
--> hier sollte doch nun irgendwie stehen:
        Me.MyComponent1.Items.AddRange(New IrgendEineListe() {Me.MyControl1, _
          me.MyControl2})
<---
        '
        'MyControl1
        '
        Me.MyControl1.Location = New System.Drawing.Point(0, 0)
        Me.MyControl1.Name = "MenuItem1"
        Me.MyControl1.Size = New System.Drawing.Size(63, 15)
        Me.MyControl1.TabIndex = 0
        Me.MyControl1.Text = "MenuItem1"
        '
        'MyControl2
        '
        '...
        '...
        '
        'Form1
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
        Me.ClientSize = New System.Drawing.Size(284, 264)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
End Sub
Friend WithEvents MyComponent1 As ContextMenuBlack.MyComponent
Friend WithEvents MyControl1 As ContextMenuBlack.MyControl
Friend WithEvents MyControl2 As ContextMenuBlack.MyControl