Public Class Form1

    'Turn Calls
    Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click
        If lblTurn.Text = "X" Then
            btn1.Text = "X"
            lblTurn.Text = "O"

        Else
            btn1.Text = "O"
            lblTurn.Text = "X"

        End If
        btn1.Enabled = False



        If btn1.Text = "X" And btn2.Text = "X" And btn3.Text = "X" Then
            MsgBox("THE X PLAYER HAS ONE!  GOOD JOB!")
            lblXs.Text = Val(lblx.Text) + 1
        End If

    End Sub

    Private Sub btn2_Click(sender As System.Object, e As System.EventArgs) Handles btn2.Click
        If lblTurn.Text = "X" Then
            btn2.Text = "X"
            lblTurn.Text = "O"

        Else
            btn2.Text = "O"
            lblTurn.Text = "X"
        End If
        btn2.Enabled = False
    End Sub

    Private Sub btn3_Click(sender As System.Object, e As System.EventArgs) Handles btn3.Click

        If lblTurn.Text = "X" Then
            btn3.Text = "X"
            lblTurn.Text = "O"

        Else
            btn3.Text = "O"
            lblTurn.Text = "X"
        End If
        btn3.Enabled = False
    End Sub

    Private Sub btn4_Click(sender As System.Object, e As System.EventArgs) Handles btn4.Click

        If lblTurn.Text = "X" Then
            btn4.Text = "X"
            lblTurn.Text = "O"

        Else
            btn4.Text = "O"
            lblTurn.Text = "X"
        End If
        btn4.Enabled = False
    End Sub

    Private Sub btn5_Click(sender As System.Object, e As System.EventArgs) Handles btn5.Click

        If lblTurn.Text = "X" Then
            btn5.Text = "X"
            lblTurn.Text = "O"

        Else
            btn5.Text = "O"
            lblTurn.Text = "X"
        End If
        btn5.Enabled = False
    End Sub

    Private Sub btn6_Click(sender As System.Object, e As System.EventArgs) Handles btn6.Click

        If lblTurn.Text = "X" Then
            btn6.Text = "X"
            lblTurn.Text = "O"

        Else
            btn6.Text = "O"
            lblTurn.Text = "X"
        End If
        btn6.Enabled = False
    End Sub


    Private Sub btn7_Click(sender As System.Object, e As System.EventArgs) Handles btn7.Click

        If lblTurn.Text = "X" Then
            btn7.Text = "X"
            lblTurn.Text = "O"

        Else
            btn7.Text = "O"
            lblTurn.Text = "X"
        End If
        btn7.Enabled = False
    End Sub

    Private Sub btn8_Click(sender As System.Object, e As System.EventArgs) Handles btn8.Click


        If lblTurn.Text = "X" Then
            btn8.Text = "X"
            lblTurn.Text = "O"

        Else
            btn8.Text = "O"
            lblTurn.Text = "X"
        End If
        btn8.Enabled = False

    End Sub

    Private Sub btn9_Click(sender As System.Object, e As System.EventArgs) Handles btn9.Click

        If lblTurn.Text = "X" Then
            btn9.Text = "X"
            lblTurn.Text = "O"

        Else
            btn9.Text = "O"
            lblTurn.Text = "X"
        End If
        btn9.Enabled = False

    End Sub

    Private Sub btnReset_Click(sender As System.Object, e As System.EventArgs) Handles btnReset.Click
        'Clear and reset forum, clears everything!
        Application.Restart()

    End Sub


    Private Sub btnNewGame_Click(sender As System.Object, e As System.EventArgs) Handles btnNewGame.Click
        'New Game button, resets data but not score.


        btn1.Text = ""
        btn2.Text = ""
        btn3.Text = ""
        btn4.Text = ""
        btn5.Text = ""
        btn6.Text = ""
        btn7.Text = ""
        btn8.Text = ""
        btn9.Text = ""
        btn1.Enabled = True
        btn2.Enabled = True
        btn3.Enabled = True
        btn4.Enabled = True
        btn5.Enabled = True
        btn6.Enabled = True
        btn7.Enabled = True
        btn8.Enabled = True
        btn9.Enabled = True
        lblTurn.Text = "X"

    End Sub

End Class