Программное создание элементов (VB6)

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

Требуется програмно создать большое и систематезированное количество элементов, например типа Line, чтобы к ним можно было обращаться примерно так: LineSet1.Line1(i).ForeColor = ... т.е. массивы линий, объединенных, наверно, в коллекции, (или как-то иначе) причем названия массивов и коллекций должны задаваться в процессе выполнения. Я, к сожалению умею только пользоваться Load xLine(i), при изначально имеющемся xLine(0), что в данном случае не подходит. Помогите, пожалуйста, если что-то понятно из моего путаного объяснения.

Решение задачи: «Программное создание элементов (VB6)»

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

                            Option Explicit
Dim WithEvents line1 As VB.Line
Dim lin() As VB.Line
Dim p, nm As String
Private Sub Command2_Click()
 
p = p + 1
ReDim Preserve lin(p)
nm = "lin" & InputBox("Name")
Set lin(p) = Controls.Add("VB.Line", nm & p, Form1)
 
lin(p).Visible = True
lin(p).X1 = 100: lin(p).X2 = 1000
lin(p).Y1 = p * 400: lin(p).Y2 = p * 400
 
End Sub
                        