Создание индексированных контролов графики - Visual Basic .NET

Формулировка задачи:

Прошу помощи. Необходимо создать индексированные контроллы shape. Привожу код создания одного контрола типа Line. Как создать индексированный набор?

Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ShapeCon As New ShapeContainer
 
        Dim testLine As New LineShape
 
        ShapeCon.Parent = Me
 
        testLine.Parent = ShapeCon
 
        testLine.StartPoint = New System.Drawing.Point(10, 10)
 
        testLine.EndPoint = New System.Drawing.Point(300, 300)
    End Sub
End Class

Решение задачи: «Создание индексированных контролов графики»

textual
                            Листинг программы 
                        

                                Private ShapeCon As New ShapeContainer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim sh1 As LineShape = New LineShape(10, 20, 120, 110)
        Dim sh2 As OvalShape = New OvalShape(100, 100, 50, 50)
        Dim sh3 As RectangleShape = New RectangleShape(120, 150, 120, 110)
        sh1.BorderStyle = Drawing2D.DashStyle.Solid
        sh1.BorderWidth = 5
        sh1.BorderColor = Color.LightGreen
        sh1.SelectionColor = Color.Red
        sh2.BackColor = Color.AliceBlue
        sh2.BackStyle = BackStyle.Opaque
        sh3.BorderColor = Color.Red
        sh3.CornerRadius = 20
        With ShapeCon
            .Shapes.Add(sh1)
            .Shapes.Add(sh2)
            .Shapes.Add(sh3)
            .BorderStyle = BorderStyle.None
            .Dock = DockStyle.Fill
        End With
        Me.Controls.Add(ShapeCon)
        ShapeCon.Show()
    End Sub
                        