以下是引用wube在2018-9-19 17:21:26的发言：

文本框有index可用吧?

Text1(0) ... Text1(17)

以下是引用风吹过b在2018-9-19 19:19:36的发言：

不同标识符的控件数组，需要写不同的代码段。
可以自己封装一个函数，负责加载控件，每次把控件名传递进去。

Public Sub addtextbox(tb As Object)
'经测试，只有 object 类型才能接受控件数组做为参数
Dim I As Long
'循环体代码照你的抄的
For I = 1 To 26
    Load tb(I) ' 这句是关键,,,,,
    tb(I).Top = tb(I - 1).Top + tb(I - 1).Height + 200
    tb(I).Visible = True
Next
End Sub


调用代码，有几组控件，就要写几个，这里写了二行
Call addtextbox(Text1())
Call addtextbox(Text2())

以下是引用ZHRXJR在2018-9-19 21:59:58的发言：


回复 8楼 sblisb
我测试了一下 7 楼 风吹过b 的代码，没有问题。
稍稍修改了一下：
Public Sub addtextbox(tb As Object)
Dim I As Long
For I = 1 To 26
    Load tb(I)
    tb(I).Top = tb(I - 1).Top    '同一个数组控件离上边界距离应该是一样的
    tb(I).Left = tb(I - 1).Left + tb(I - 1).Width + 100   '同一个数组控件排列在同一行
    tb(I).Visible = True
Next
End Sub
你出现的问题估计是你没有对有些  Text 控件分配下标，即放置在窗体的有的控件没有设置 Index 的值为 0 的原因吧。