No te compliques... Utilizando ese codigo como guia lo puedes simplificar
Código:
Private Sub Command1_Click()
Static Indice As Long
Indice = Indice + 1
Load Text1(Indice)
With Text1(Indice)
.Top = Text1(Indice - 1).Top + 450
.Visible = True
End With
End Sub
Solo copia las lineas de los demas controles a agregar...