'Formular
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        'Fomular Daten
        Me.Height = 550
        Me.Width = 490
 
        'Textboxen erstellen
        Dim a As Integer = 30
        Dim b As Integer = 30
        For i As Integer = 0 To 8
            For i0 As Integer = 0 To 8
                Dim ix As Integer = 9 * i + i0
                TextBoxArray(ix) = New TextBox
                TextBoxArray(ix).Top = a
                TextBoxArray(ix).Left = b
                TextBoxArray(ix).Width = 23
                TextBoxArray(ix).Name = "txt" & i
                TextBoxArray(ix).TabIndex = i
                TextBoxArray(ix).Text = ""
                TextBoxArray(ix).TextAlign = HorizontalAlignment.Center
                TextBoxArray(ix).MaxLength = 1
                TextBoxArray(ix).Multiline = False
                AddHandler TextBoxArray(ix).KeyPress, AddressOf _
                  TextboxArray_KeyPress
                AddHandler TextBoxArray(ix).TextChanged, AddressOf _
                Textboxarray_TextChanged
                Me.Controls.Add(TextBoxArray(ix))
                b = b + 50
            Next
            a = a + 50
            b = 30
        Next
 
    End Sub

fg viperbone