以下代码实现 Debug.Print 没有 unload 的控件:
Private Sub Command1_Click()
Dim TextX As TextBox
For Each TextX In Text1
Debug.Print TextX.Index
Next TextX
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 0 To 2
Load Text1.Item(i + 1)
Text1.Item(i + 1).Top = Text1.Item(i).Top + Text1.Item(i).Height + 100
Text1.Item(i + 1).Visible = True
Next i
End Sub