Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
        Dim TextBox() As TextBox
        Dim padding As Integer = 3
        Dim left As Integer = 10
        Me.SuspendLayout()
        For a As Integer = 0 To 10
            ReDim Preserve TextBox(a)
            TextBox(a) = New System.Windows.Forms.TextBox
            TextBox(a).Name = a.ToString '// Name setzen
            TextBox(a).Size = New Size(80, 20)
            TextBox(a).Location = (New Point(left, ((TextBox(a).Size.Height + _
              padding) * a) + 10))
            AddHandler TextBox(a).TextChanged, AddressOf Me.Text_Changed
            Me.Controls.Add(TextBox(a))
        Next
        Me.ResumeLayout()
    End Sub
 
    Private Sub Text_Changed(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        MsgBox(sender.ToString)
'Ereigniss für alle txt boxen
    End Sub