Y10 Programming Lesson 4 - Visual Basic X & O

The 2nd and 3rd lines of all the code should say:
Dim turn as string
Dim win as boolean
After double clicking on FORM 1 the code was:
turn = "X"
Here is the code we put on each button 1 to 9: (Change the button num to the button you are coding)

Button9.Text = turn

  If Button1.Text = turn And Button2.Text = turn And Button3.Text = turn Or _

       Button4.Text = turn And Button5.Text = turn And Button6.Text = turn Or _

       Button7.Text = turn And Button8.Text = turn And Button9.Text = turn Or _

       Button1.Text = turn And Button5.Text = turn And Button9.Text = turn Or _

       Button3.Text = turn And Button5.Text = turn And Button7.Text = turn Or _

       Button1.Text = turn And Button4.Text = turn And Button7.Text = turn Or _

       Button2.Text = turn And Button5.Text = turn And Button8.Text = turn Or _

       Button3.Text = turn And Button6.Text = turn And Button9.Text = turn Then

        Win = True

     End If

        If Win = True Then

            MsgBox(turn & " has won")

        End If

        If turn = "X" Then

            turn = "O"

        Else : turn = "X"

        End If