VB.NET - Windows Form - Juego "Tic tac toe"

Hecho en Visual Studio 2010

Código:
___________________________________

Public Class Form1
    Dim i As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If i Mod 2 = 0 Then
            Button1.Text = "0"
        Else
            Button1.Text = "X"
        End If

        If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button1.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button1.Text = Button4.Text And Button1.Text = Button7.Text And Button4.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button1.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button1.Text = Button5.Text And Button1.Text = Button9.Text And Button5.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button1.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button1.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If i Mod 2 = 0 Then
            Button2.Text = "0"
        Else
            Button2.Text = "X"
        End If

        If Button2.Text = Button1.Text And Button2.Text = Button3.Text And Button1.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button2.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button2.Text = Button5.Text And Button2.Text = Button8.Text And Button5.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button2.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button2.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If i Mod 2 = 0 Then
            Button3.Text = "0"
        Else
            Button3.Text = "X"
        End If

        If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button3.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button3.Text = Button5.Text And Button3.Text = Button7.Text And Button5.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button3.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button3.Text = Button6.Text And Button3.Text = Button9.Text And Button6.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button3.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button3.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If i Mod 2 = 0 Then
            Button4.Text = "0"
        Else
            Button4.Text = "X"
        End If

        If Button4.Text = Button1.Text And Button4.Text = Button7.Text And Button1.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button4.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button4.Text = Button5.Text And Button4.Text = Button6.Text And Button5.Text = Button6.Text Then
            MsgBox("El ganador es: " & Button4.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If i Mod 2 = 0 Then
            Button5.Text = "0"
        Else
            Button5.Text = "X"
        End If

        If Button5.Text = Button2.Text And Button5.Text = Button8.Text And Button2.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button5.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button4.Text And Button5.Text = Button6.Text And Button4.Text = Button6.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button1.Text And Button5.Text = Button9.Text And Button1.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button3.Text And Button5.Text = Button7.Text And Button3.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button5.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If i Mod 2 = 0 Then
            Button6.Text = "0"
        Else
            Button6.Text = "X"
        End If

        If Button6.Text = Button3.Text And Button6.Text = Button9.Text And Button3.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button6.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button6.Text = Button5.Text And Button6.Text = Button4.Text And Button4.Text = Button5.Text Then
            MsgBox("El ganador es: " & Button6.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button6.Enabled = False
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If i Mod 2 = 0 Then
            Button7.Text = "0"
        Else
            Button7.Text = "X"
        End If

        If Button7.Text = Button1.Text And Button7.Text = Button4.Text And Button4.Text = Button1.Text Then
            MsgBox("El ganador es: " & Button7.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button7.Text = Button5.Text And Button7.Text = Button3.Text And Button5.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button7.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button7.Text = Button8.Text And Button7.Text = Button9.Text And Button8.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button7.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button7.Enabled = False
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If i Mod 2 = 0 Then
            Button8.Text = "0"
        Else
            Button8.Text = "X"
        End If

        If Button8.Text = Button2.Text And Button8.Text = Button5.Text And Button2.Text = Button5.Text Then
            MsgBox("El ganador es: " & Button8.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button8.Text = Button7.Text And Button8.Text = Button9.Text And Button7.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button8.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button8.Enabled = False
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If i Mod 2 = 0 Then
            Button9.Text = "0"
        Else
            Button9.Text = "X"
        End If

        If Button9.Text = Button8.Text And Button9.Text = Button7.Text And Button7.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button9.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button9.Text = Button5.Text And Button9.Text = Button1.Text And Button5.Text = Button1.Text Then
            MsgBox("El ganador es: " & Button9.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button9.Text = Button6.Text And Button9.Text = Button3.Text And Button6.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button9.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button9.Enabled = False
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Application.Restart()
    End Sub
End Class

_________________________________________


==>DESCARGAR<==