Public Class Form1
    Dim TBX(81) As TextBox
    Dim VorlageArr(81)
    Dim Rnd As New Random                              ' für die Zufallszahlen
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim i, j As Int32
        For i = 1 To 81
            VorlageArr(i) = Rnd.Next(1, 10)           ' Zufallszahlen als 
            ' Datenersatz
            TBX(i) = New TextBox
            Controls.Add(TBX(i))
            TBX(i).Text = CStr(VorlageArr(i))
            TBX(i).TextAlign = HorizontalAlignment.Center
            AddHandler TBX(i).TextChanged, AddressOf TBX_TextChanged
        Next
        For j = 0 To 8
            For i = 1 To 9
                TBX(i + 9 * j).Location = (New Size(i * 30, j * 30))
                TBX(i + 9 * j).Size = (New Size(20, 20))
            Next
        Next
    End Sub
    Private Sub TBX_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs)
 
    End Sub
End Class