'Textboxen erstellen
        Dim TextBoxArray(81) As TextBox
        Dim a As Integer = 30
        Dim b As Integer = 30
        For i As Integer = 0 To 8
            For i0 As Integer = 0 To 8
                TextBoxArray(i) = New TextBox
                TextBoxArray(i).Top = a
                TextBoxArray(i).Left = b
                TextBoxArray(i).Width = 23
                TextBoxArray(i).Name = "txt" & i
                TextBoxArray(i).Text = ""
                TextBoxArray(i).TabIndex = i
                TextBoxArray(i).TextAlign = HorizontalAlignment.Center
                TextBoxArray(i).Multiline = False
                Me.Controls.Add(TextBoxArray(i))
                b = b + 50
            Next
            a = a + 50
            b = 30
        Next

    Private Sub cmdleeren_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        For i As Integer = 0 To 81
            TextBoxArray(i).Text = ""
        Next
    End Sub

fg viperbone