Generalized Routines for a 10X10 array

Public Class Form1
 
    Private Rows As Integer = 10
    Private Columns As Integer = 10
    Private Btns(,) As Button
    Private tlp As TableLayoutPanel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim Btns(Columns - 1, Rows - 1)
        tlp = New TableLayoutPanel
        tlp.Dock = DockStyle.Fill
        tlp.RowCount = Rows
        tlp.ColumnCount = Columns
        tlp.RowStyles.Clear()
        tlp.ColumnStyles.Clear()
        For i As Integer = 1 To Rows
            tlp.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / tlp.RowCount))
        Next
        For i As Integer = 1 To Columns
            tlp.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 100 / tlp.ColumnCount))
        Next
        For r As Integer = 0 To Rows - 1
            For c As Integer = 0 To Columns - 1
                Dim btn As New Button
                btn.Text = ""
                AddHandler btn.Click, AddressOf btn_Click
                Btns(c, r) = btn
                tlp.SetCellPosition(btn, New TableLayoutPanelCellPosition(c, r))
                tlp.Controls.Add(btn)
            Next
        Next
        Me.Controls.Add(tlp)
        Me.Size = New Size(500, 500)
        Me.KeyPreview = True
    End Sub
 
    Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim btn As Button = CType(sender, Button)
        Dim pos As TableLayoutPanelCellPosition = tlp.GetCellPosition(btn)
        btn.Text = pos.Column & ", " & pos.Row
        btn.Enabled = False
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            ResetAll()
        End If
    End Sub
 
    Private Sub ResetAll()
        For c As Integer = 0 To Btns.GetUpperBound(0)
            For r As Integer = 0 To Btns.GetUpperBound(1)
                Btns(c, r).Enabled = True
                Btns(c, r).Text = ""
            Next
        Next
    End Sub
 
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59: