Dim anzahl As Integer = 2
       Dim spielkonto(Anzahl, 1) As String
 
       For i As Integer = 0 To anzahl
          'Erstellung von Textboxen mit Nameund Text
           Dim tbo As New TextBox With {.Parent = Me,
           .Name = "Textbox" & i.ToString,
           .Text = "Text " & i.ToString}
 
           'Die Member der Controls-Auflistung müssen gecastet werden,
           'um auf alle Eigenschaften und Methoden des Control zugreifen zu 
           ' können
           spielkonto(i, 1) =
               DirectCast(Me.Controls("TextBox" & i.ToString), TextBox).Text
 
           'Diese Code-Variante funktioniert auch, weil die Text-Eigenschaft von 
           'Control abgeleitet ist
           spielkonto(i, 1) =
           Me.Controls("TextBox" & i.ToString).Text
       Next i
   End Sub