Public Class frmtest
 
    Dim box As New Collections.Generic.List(Of TextBox)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
 
        Dim indexcount As Integer
        Dim maxIC As Integer = 3
 
        If box.Count > 0 Then Exit Sub
 
        For indexcount = 0 To maxIC
            box.Add(New TextBox)
            With box(indexcount)
                .Name = "box" & indexcount.ToString
                .Left = 12
                .Top = 200 + indexcount * 130 + 20
                .Height = 120
                .Width = 500
                .Tag = "box" & indexcount.ToString
                .Parent = Me
                AddHandler .Click, AddressOf BoxClick
            End With
        Next indexcount
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button2.Click
 
 
        'Quasi soll es folgendermaßen aussehen:
 
        box(0).Text = TextBox1.Text
        box(1).Text = TextBox2.Text
        '... usw
 
    End Sub
 
    Private Sub BoxClick(ByVal sender As Object, ByVal e As System.EventArgs)
 
        MsgBox(CStr(CType(sender, TextBox).Tag) & " ist geclickt worden")
    End Sub
End Class