Public Class Form1
    Private TNeu(5) As TextBox
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        txt1.Text = Me.Controls.IndexOf(txt1).ToString
        For i As Integer = 0 To 5
            TNeu(i) = New TextBox
            With TNeu(i)
                .Parent = Me
                .Parent.Controls.Add(TNeu(i))
                'spätestens hier müsste doch eigentlich die neue Textbox den 
                'Index 0 haben, denn sie wurde der Form durch .Controls.Add 
                ' hinzugefügt
                If i = 0 Then
                    'dann könnte das aber nicht funktionieren, denn die neue 
                    ' Textbox
                    'wird unter txt1 gesetzt, also hat diese "noch" den Index 0
                    .Top = Me.Controls(0).Top + Me.Controls(0).Height + 10
                Else
                    'würde ich das nicht abfangen, werden alle neuen Textboxen 
                    ' an
                    'die gleiche Stelle gesetzt, unter txt1 eben
                    .Top = TNeu(i - 1).Top + TNeu(i - 1).Height + 10
                End If
                .Left = txt1.Left
                .Text = Me.Controls.IndexOf(TNeu(i)).ToString
            End With
        Next i
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        'Der Beweis, dass der Index durch BringToFront verschoben wird
        TNeu(3).BringToFront()
        TNeu(3).Text = Me.Controls.IndexOf(TNeu(3)).ToString
    End Sub
End Class

Gru? aus dem Norden
manyki