Динамическая загрузка обекта с загруженными внутри объектам Array - VB

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

Люди нужно чтобы в каждом созданном Frame1 создавалось по три текстбокса в первом фрейме создает в следующем уже нет почему так ? Я так покаля как то копировать надо но не знаю как пожалуйста исправьте код спасибо( На форме Command1, Frame1, text1

Private Sub Command1_Click()
For i = 0 To 3
 
        On Error Resume Next
       'Загружаем элементы frame1
       Load Frame1(i)
       'Загружаем элементы text1
       Load Text1(i)
    
        Frame1(i).Top = Frame1(i - 1).Top + Frame1(0).Height + 120
        Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 120
      
      Text1(i).Visible = True
      Frame1(i).Visible = True
 
    Next
End Sub

Решение задачи: «Динамическая загрузка обекта с загруженными внутри объектам Array»

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

                            Option Explicit
Dim i&, j&, t&, tt&
Private Sub Form_Load()
    On Error Resume Next
    For i = 0 To 3 - 1
        Load Frame1(i): With Frame1(i)
            .Move .Left, t, .Width, .Height
            t = t + .Height
            .Caption = "Frame" & i
            .Visible = 1
        End With
        tt = Text1(0).Top
        For j = j To j + 2
            Load Text1(j): With Text1(j)
                Set .Container = Frame1(i)
                .Move Text1(0).Left, tt
                 tt = tt + .Height + 90
                .Visible = 1
            End With
        Next
    Next
End Sub
                        