Public txtForm(4) As TextBox
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
        initialize()
    End Sub
 
    Private Sub initialize()
        Dim tb As TextBox
        txtForm(0) = txtTest1
        txtForm(1) = txtTest2
        txtForm(2) = txtTest3
        txtForm(3) = txtTest4
        txtForm(4) = txtTest5
 
        For Each tb In txtForm
            AddHandler tb.TextChanged, AddressOf txtForm_TextChanged
        Next
    End Sub
 
    Private Sub txtForm_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        'TODO: Gewünschte Reaktion einfügen
    End Sub