Help! Project Due Tuesday!!!! Need Help Asap

[Injection]

gosh damn, its giving me weird errors ... :| i neeeeed this to get done QUICK.. does anybody know why its giving me the error? and why there is a sqigly line under the O in

ElseIf Len(Button4.Text & Button5.Text & Button6.Text) > O And _

[b]Dim Token As Char
    Dim Player As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        RestartGame()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = Token
        Button1.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Text = Token
        Button2.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
        Button3.Text = Token
        Button3.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button4.Click
        Button4.Text = Token
        Button4.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button5.Click
        Button5.Text = Token
        Button5.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button6.Click
        Button6.Text = Token
        Button6.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button7.Click
        Button7.Text = Token
        Button7.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button9.Click
        Button9.Text = Token
        Button9.Enabled = False
        CheckWinner()
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button10.Click
        'this is called when the Restart button is pressed
        RestartGame()
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button11.Click
        'this is called when the quit button is pressed
        End
    End Sub
 
    Private Sub NextPlayer()
        If Player = 1 Then
            Token = "X"
            Player = 2
        ElseIf Player = 2 Then
            Token = "O"
            Player = 1
        End If
        Label2.Text = "Player " & Player & " : '" & Token & "'"
    End Sub
 
    Private Sub DisplayWinner()
        'display winner message
        Label2.Text = "Player '" & Token & "' is the winner! They are the Duke of History!!"
 
        'disable all buttons
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        Button9.Enabled = False
    End Sub
 
    Private Sub CheckWinner()
        'check rows
        If Len(Button1.Text & Button2.Text & Button3.Text) > O And _
            Button1.Text = Button2.Text And Button2.Text = Button3.Text Then
            Button1.BackColor = Color.Blue
            Button2.BackColor = Color.Blue
            Button3.BackColor = Color.Blue
            DisplayWinner()
        
            Button4.Text = Button5.Text And Button5.Text = Button6.Text Then
            Button4.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button6.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button7.Text & Button8.Text & Button9.Text) > O And _
            Button7.Text = Button8.Text And Button8.Text = Button9.Text Then
            Button7.BackColor = Color.Blue
            Button8.BackColor = Color.Blue
            Button9.BackColor = Color.Blue
            DisplayWinner()
 
            'check colums
        ElseIf Len(Button1.Text & Button4.Text & Button7.Text) > O And _
            Button1.Text = Button4.Text And Button4.Text = Button7.Text Then
            Button1.BackColor = Color.Blue
            Button4.BackColor = Color.Blue
            Button7.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button2.Text & Button5.Text & Button8.Text) > O And _
            Button2.Text = Button5.Text And Button5.Text = Button8.Text Then
            Button2.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button8.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button3.Text & Button6.Text & Button9.Text) > O And _
            Button2.Text = Button6.Text And Button6.Text = Button9.Text Then
            Button3.BackColor = Color.Blue
            Button6.BackColor = Color.Blue
            Button9.BackColor = Color.Blue
            DisplayWinner()
 
            'check diagnols
        ElseIf Len(Button1.Text & Button5.Text & Button9.Text) > O And _
            Button1.Text = Button5.Text & Button5.Text = Button9.Text Then
            Button1.BackColor = Color.Blue
            Button2.BackColor = Color.Blue
            Button3.BackColor = Color.Blue
            DisplayWinner()
        ElseIf Len(Button3.Text & Button5.Text & Button7.Text) > O And _
            Button3.Text = Button5.Text & Button5.Text = Button7.Text Then
            Button3.BackColor = Color.Blue
            Button5.BackColor = Color.Blue
            Button7.BackColor = Color.Blue
            DisplayWinner()
        Else
            NextPlayer()
        End If
    End Sub
 
    Private Sub RestartGame()
        're-enable the buttons
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        Button9.Enabled = True
 
        'clear the button labels
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button9.Text = ""
 
        'set the button backround colors
        Button1.BackColor = Color.Beige
        Button2.BackColor = Color.Beige
        Button3.BackColor = Color.Beige
        Button4.BackColor = Color.Beige
        Button5.BackColor = Color.Beige
        Button6.BackColor = Color.Beige
        Button7.BackColor = Color.Beige
        Button8.BackColor = Color.Beige
        Button8.BackColor = Color.Beige
 
        'set up the new game
        Player = 2
        Token = "O"
        NextPlayer()
    End Sub
End Class[/b]