Прмерный алгоритм для создания игры в крестики нолики

Public Class Form1
    Dim x As Boolean = True
    Dim lbl(2, 2) As Label
    Dim w(7) As win
    Private Structure win
        Dim z1 As Point
        Dim z2 As Point
        Dim z3 As Point
    End Structure
 
    Private Sub Label_Click(ByVal sender As Label, ByVal e As System.EventArgs)
        If sender.Text <> Nothing Then Exit Sub
        If x = True Then sender.Text = "X" : x = False Else sender.Text = "O" : x = True
 
        For Each d As win In w
            If lbl(d.z1.X, d.z1.Y).Text = lbl(d.z2.X, d.z2.Y).Text AndAlso lbl(d.z1.X, d.z1.Y).Text = lbl(d.z3.X, d.z3.Y).Text AndAlso (lbl(d.z1.X, d.z1.Y).Text = "X" OrElse lbl(d.z1.X, d.z1.Y).Text = "O") Then
                MsgBox("WIN")
                For Each l As Label In lbl
                    l.Text = Nothing
                Next
                Exit For
            End If
        Next
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        w(0).z1 = New Point(0, 0)
        w(0).z2 = New Point(0, 1)
        w(0).z3 = New Point(0, 2)
 
        w(1).z1 = New Point(1, 0)
        w(1).z2 = New Point(1, 1)
        w(1).z3 = New Point(1, 2)
 
        w(2).z1 = New Point(2, 0)
        w(2).z2 = New Point(2, 1)
        w(2).z3 = New Point(2, 2)
 
        w(3).z1 = New Point(0, 0)
        w(3).z2 = New Point(1, 0)
        w(3).z3 = New Point(2, 0)
 
        w(4).z1 = New Point(0, 1)
        w(4).z2 = New Point(1, 1)
        w(4).z3 = New Point(2, 1)
 
        w(5).z1 = New Point(0, 2)
        w(5).z2 = New Point(1, 2)
        w(5).z3 = New Point(2, 2)
 
        w(6).z1 = New Point(0, 0)
        w(6).z2 = New Point(1, 1)
        w(6).z3 = New Point(2, 2)
 
        w(7).z1 = New Point(0, 2)
        w(7).z2 = New Point(1, 1)
        w(7).z3 = New Point(2, 0)
 
        For i = 0 To 2
            For j = 0 To 2
                Dim label As New Label
                label.AutoSize = False
                label.Size = New Size(20, 20)
                label.BorderStyle = BorderStyle.FixedSingle
                label.Location = New Point(10 + i * 20, 10 + j * 20)
                label.Text = Nothing
                Me.Controls.Add(label)
                lbl(i, j) = label
                AddHandler label.Click, AddressOf Label_Click
            Next
        Next
    End Sub
End Class