If lblTurn.Caption = txtPlayer1.Text ThenĮlseIf lblTurn.Caption = txtPlayer2.Text Then

Timer1.Enabled = False End Sub Sub Disable()ĬmdBox9.Enabled = False End Sub Private Sub cmdBox1_Click() Timer1.Enabled = True End If End Sub Sub reset() Timer1.Enabled = True End If If (lblO1.Visible = True And lblO2.Visible = True And lblO3.Visible = True) ThenĮlseIf (lblO1.Visible = True And lblO4.Visible = True And lblO7.Visible = True) ThenĮlseIf (lblO1.Visible = True And lblO5.Visible = True And lblO9.Visible = True) ThenĮlseIf (lblO2.Visible = True And lblO5.Visible = True And lblO8.Visible = True) ThenĮlseIf (lblO3.Visible = True And lblO5.Visible = True And lblO7.Visible = True) ThenĮlseIf (lblO4.Visible = True And lblO5.Visible = True And lblO6.Visible = True) ThenĮlseIf (lblO3.Visible = True And lblO6.Visible = True And lblO9.Visible = True) ThenĮlseIf (lblO7.Visible = True And lblO8.Visible = True And lblO9.Visible = True) Then If (lblX1.Visible = True And lblX2.Visible = True And lblX3.Visible = True) ThenĮlseIf (lblX1.Visible = True And lblX4.Visible = True And lblX7.Visible = True) ThenĮlseIf (lblX1.Visible = True And lblX5.Visible = True And lblX9.Visible = True) ThenĮlseIf (lblX2.Visible = True And lblX5.Visible = True And lblX8.Visible = True) ThenĮlseIf (lblX3.Visible = True And lblX5.Visible = True And lblX7.Visible = True) ThenĮlseIf (lblX4.Visible = True And lblX5.Visible = True And lblX6.Visible = True) ThenĮlseIf (lblX3.Visible = True And lblX6.Visible = True And lblX9.Visible = True) ThenĮlseIf (lblX7.Visible = True And lblX8.Visible = True And lblX9.Visible = True) Then MsgBox ' Congradulations Player 2! You Win!'ĬmdQuit.Visible = True End Sub Sub endings() MsgBox ' Congradulations Player 1! You Win!' Here is the code for the 'cmdInstruct' button

Label one TextBox as 'txtPlay1' and the other one as 'txtPlay2' label the Command Buttons as 'cmdStart', 'cmdInstruct', 'cmdAIgame', and 'cmdQuit' You will need these objects for the starting form:

Next, change the form's name to 'frmStartScreen'. We will start out by making the player vs player game, since it is easier.įirst, open visual basic 6 and open up a form.

You will need to get used to most of the basic tools that you can use on your form like the option-box, command button, etc. Just download the link until I say that I am completely done Backgroundįor this project, you will need to understand the 5 basic data types and the Boolean data type. Just follow these steps and you will successfully make you're own AMAZING TIC-TAC-TOE game. If you want to make you're own game, then here's a simple one, even though it is advanced for a simple game.

Create your own tic tac toe