AddHandler [Ereignis], [Prozedur]

Dim arrTxt As TextBox()
*********************
For i = 0 To 5
   ReDim Preserve arrTxt(i)
   arrTxt(i) = New TextBox()
   AddHandler arrTxt(i).TextChange, New EventHandler(AddressOf OnTextChange) _
     '<- Funktion mit Ereignis verknüpfen!
   With arrTxt(i)
      .Text = "Text" & i.ToString()  'Hier wird das Ereignis aufgerufen!
      .Top = i * 20
   End With
   Me.Controls.Add(arrTxt(i))
Next i
 
Private Sub OnTextChange(ByVal sender as System.Object, ByVal e as _
  System.EventArgs) 'ACHTUNG: Kein Handles ... !
   MessageBox.Show("Text wurde geändert!")
End Sub