Visual Basic

Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
            lblTextHere.Text = "READY"
            System.Threading.Thread.Sleep(2000)
            lblTextHere.Text = "SET"
            System.Threading.Thread.Sleep(2000)
            lblTextHere.Text = "FIRST PLAYER'S TURN"
            Timer1.Start()
        End Sub

Public Sub CreateBoard()
            Dim xCol As Integer = 125
            Dim yCol As Integer = 10
            Dim xRow As Integer = 10
            Dim yRow As Integer = 150

            Dim btn(64) As Button
            Dim arr As Integer = 0

            For xBtn As Integer = 1 To 8
                arr += 1
                btn(arr) = New Button()
                btn(arr).Width = 25
                btn(arr).Height = 25
                btn(arr).Left = xCol
                btn(arr).Top = yCol
                btn(arr).Tag = arr
                AddHandler btn(arr).MouseClick, AddressOf MyMouseClick
                Me.Controls.Add(btn(arr))

                yCol += 25

                For yBtn As Integer = 1 To 7
                    arr += 1
                    btn(arr) = New Button()
                    btn(arr).Width = 25
                    btn(arr).Height = 25
                    btn(arr).Left = yRow
                    btn(arr).Top = xRow
                    btn(arr).Tag = arr
                    AddHandler btn(arr).MouseClick, AddressOf MyMouseClick
                    Me.Controls.Add(btn(arr))
                    yRow += 25
                Next

                xRow += 25
                yRow = 150
            Next
            Panel1.SendToBack()
        End Sub

Public Sub MyMouseClick(sender As Object, e As Windows.Forms.MouseEventArgs)
            Select Case DirectCast(DirectCast(sender, Button).Tag, Integer)
                Case 1
                    
                Case 2

                Case 3

                Case 4

            End Select
        End Sub