Public Sub Zeilen()
For i = 2 To AnzZeilen
   Load txtFeld(i)
   Spalten
   txtFeld(i).Top = txtFeld(i - 1).Top - txtFeld(i).Height + 5
Next i
txtFeld(i).Visible = True
End Sub

Public Sub Spalten()
For i = 2 To AnzSpalten
   txtFeld(i).Left = txtFeld(i - 1).Left + txtFeld(i).Width + 5
Next i
End Sub