Private TextBoxArray(80) As TextBox
 
    'Formular
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        '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

    Private Sub TextboxArray_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs)
        'Hier wird verhindert, daas in den Zeitenhinzufügenfeldern Buchstaben 
        ' eingegeben werden können.
        Select Case Asc(e.KeyChar)
            'Zahlen vom 1-9(ASCII:48-57), Backspace(Delete ASCII:8)
            Case 49 To 57, 8
            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select
    End Sub

fg viperbone