Dim x As Integer
 
            ' 5 weitere Textboxen laden und anzeigen
            For x = 1 To 5
                ' Textfeld laden
                Load(Link1(x))
 
                With Link1(x)
                    ' Neues Textfeld positionieren
                    ' (immer unterhalb des vorigen Textfeldes)
                    .Top = Link1(x - 1).Top + Link1(x - 1).Height + 105
 
                    ' Wichtig! Neues Textfeld sichtbar machen!
                    .Visible = True
 
                    ' Text-Eigenschaft setzen
                    .Text = "LinkLabel " & CStr(x + 1)
                End With
            Next x