Public Class frmTest
 
    'Textbox-Array Zugriffsvariable
    Dim tbo(2) As TextBox
 
    Private Sub frmTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        For i As Integer = 0 To 2
            'Erstellung der Objekte mit Eigenschaften
            tbo(i) = New TextBox With
                {.Parent = Me, .Top = 10 + i * 30, .Left = 10, .Name = "tbo_" + _
                  i.ToString}
 
            'Ereignis-Handler zuordnen
            AddHandler tbo(i).TextChanged, AddressOf tbo_textchanged
            AddHandler tbo(i).KeyDown, AddressOf tbo_keydown
        Next i
    End Sub
 
 
    Private Sub tbo_textchanged(sender As Object, e As EventArgs)
        'Die geänderte Box aus dem Sender ermitteln
        Dim tbo As TextBox = DirectCast(sender, TextBox)
    End Sub
 
 
    Private Sub tbo_keydown(sender As Object, e As KeyEventArgs)
        Dim tbo As TextBox = DirectCast(sender, TextBox)
    End Sub
 
End Class