'Schleife zur Erstellung von drei Textboxen
For i As Integer = 0 To 2
    'Hier wird bei jedem Durchgang eine Textbox erstellt (new), 
    'dem Formular zugeordnet (Parent),
    'auf dem Formular positioniert (top, left)
    'und mit einem Namen versehen (tbo_1, tbo_2,...)
    tbo(i) = New TextBox With
    {.Parent = Me, .Top = 10 + i * 30, .Left = 10,
     .Name = "tbo_" + i.ToString}
 
    'In jeder Textbox wird ein Text angezeigt (Text)
    tbo(i).Text = "Person " & (i + 1).ToString
    'Die Tag-Eigenschaft dient dem Kennzeichnen der Vorbelegung des Textes
    tbo(i).Tag = True 'Vorbelegung der Text-Eigenschaft notieren
    tbo(i).BackColor = Color.LightGray
 
    'Windows schickt das KeyDown-Event jeder Textbox an die Routine tbo-keydown
    AddHandler tbo(i).KeyDown, AddressOf tbo_keydown
Next i