VB.NET2003 プロパティの作成方法

 Public Overloads Sub AddRange(ByVal obj() As Object)
        MyBase.AddRange(obj)
 End Sub

 
Public Class myControl
    Inherits System.Windows.Forms.ComboBox

    'この部分をつけたした場合、うまく動作する事が分かりました。●●●●●●●●
    Private components As System.ComponentModel.Container = Nothing
        
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub
    
#Region "コンストラクタ"
    Public Sub New(ByVal container As System.ComponentModel.IContainer)
        MyBase.new()
        container.Add(Me)
        InitializeComponent()
        myMembers = New MyMemberCollection
    End Sub

    Public Sub New()
        InitializeComponent()
        myMembers = New MyMemberCollection
    End Sub
#End Region
    'ここまで●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
    
    Private myMembers As MyMemberCollection
'★★★★★この部分に属性付加★★★★★★★★★★★★★★★★★★★★★★★★★
　<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property Members() As MyMemberCollection
        Get
            Return myMembers
        End Get
        Set(ByVal Value As MyMemberCollection)
            myMembers = Value
        End Set
    End Property
End Class

#Region "MyMemberクラス"

Public Class MyMember

#Region "インスタンス変数"
    Private myMemberName As String
    Private myByteSize As Integer
    Private myPenColor As Color
#End Region

#Region "プロパティ"
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
#Region "Public Property MemberName() As String"
    Public Property MemberName() As String
        Get
            Return myMemberName
        End Get
        Set(ByVal Value As String)
            myMemberName = Value
        End Set
    End Property
#End Region

#Region "Public Property ByteSize() As Integer"
    Public Property ByteSize() As Integer
        Get
            Return myByteSize
        End Get
        Set(ByVal Value As Integer)
            myByteSize = Value
        End Set
    End Property
#End Region

#Region "Public Property PenColor() As Color"
    Public Property PenColor() As Color
        Get
            Return (Me.myPenColor)
        End Get
        Set(ByVal Value As Color)
            Me.myPenColor = Value
        End Set
    End Property
#End Region

#End Region

End Class

#End Region

#Region "MyMemberCollectionクラス"

Public Class MyMemberCollection
    Inherits System.Collections.ArrayList
    Default Public Shadows Property Item(ByVal Index As Integer) As MyMember
        Get
            Return DirectCast(MyBase.Item(Index), MyMember)
        End Get
        Set(ByVal Value As MyMember)
            MyBase.Item(Index) = DirectCast(Value, MyMember)
        End Set
    End Property
End Class
#End Region