Public Class CPlugin
.......
End Class

    Public Class CPlugIns
        Private _CPlugIn As CPlugIn
        Private mycol As New Collection
        ReadOnly Property CPlugIn(ByVal index As Integer) As CPlugIn
            Get
                Return mycol.Item(index)
            End Get
        End Property
        Public Function Add(ByVal PluginObject As CPlugIn)
            Dim obj As New CPlugIns
            obj._CPlugIn = PluginObject
            mycol.Add(obj)
            obj = Nothing
        End Function
 
    End Class