Q onda Bakunos?!ya tenia un rato q no me daba la vuelta por aqui.

Tengo un problema con un programa en VB2010, es un juego del GATO, TIC TAC TOE, o 3 en raya, como le llamen. tengo el codigo para poder jugar una persona contra otra, pero quiero saber si es posible que juegue contra la computadora, y de ser asi, como hacerle.

Gracias!

Public Class Form1
Dim navegador As String = "X"
Dim contadorx As Integer = "0"
Dim contadory As Integer = "0"

Public Function xoy(ByVal nav As String)
If nav = "X" Then
navegador = "0"
Return "X"
Else
navegador = "X"
Return "0"
End If
End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = xoy(navegador)
Button1.Enabled = False


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = xoy(navegador)
Button2.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = xoy(navegador)
Button3.Enabled = False

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.Text = xoy(navegador)
Button4.Enabled = False

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.Text = xoy(navegador)
Button5.Enabled = False

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button6.Text = xoy(navegador)
Button6.Enabled = False

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Button7.Text = xoy(navegador)
Button7.Enabled = False

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Button8.Text = xoy(navegador)
Button8.Enabled = False

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Button9.Text = xoy(navegador)
Button9.Enabled = False

End Sub
End Class

este es el codigo que tengo!