visual basic net 2008 express

bueno taringeros este es mi primer post y quiero darles esta finformacion para quienes se pregunten como hacer un totio en vb a qui se los de jo

Public Class totito
Private Sub victorias()
If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
MsgBox("el ganador es X"
jugadorx = jugadorx + 1
Label4.Text = jugadorx
Call apagarbotones()
ElseIf Button1.Text = "0" And Button2.Text = "0" And Button3.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button4.Text = "0" And Button5.Text = "0" And Button6.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button7.Text = "0" And Button8.Text = "0" And Button9.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button1.Text = "0" And Button4.Text = "0" And Button7.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button2.Text = "0" And Button5.Text = "0" And Button8.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button3.Text = "0" And Button6.Text = "0" And Button9.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button1.Text = "0" And Button5.Text = "0" And Button9.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()
ElseIf Button3.Text = "0" And Button5.Text = "0" And Button9.Text = "0" Then
MsgBox("el ganador es 0"
jugadpr0 = jugadpr0 + 1
Label6.Text = jugadpr0
Call apagarbotones()

End If


End Sub
Public Sub apagarbotones()
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End Sub
Public Sub nuevojuego()
Button1.Text = " "
Button1.Enabled = True
Button2.Text = ""
Button2.Enabled = True
Button3.Text = ""
Button3.Enabled = True
Button4.Text = ""
Button4.Enabled = True
Button5.Text = ""
Button5.Enabled = True
Button6.Text = ""
Button6.Enabled = True
Button7.Text = ""
Button7.Enabled = True
Button8.Text = ""
Button8.Enabled = True
Button9.Text = ""
Button9.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If turno = 1 Then
Button1.Text = "0"
Label2.Text = "X"
Else
Button1.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button1.Enabled = False
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If turno = 1 Then
Button2.Text = "0"
Label2.Text = "X"
Else
Button2.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button2.Enabled = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If turno = 1 Then
Button3.Text = "0"
Label2.Text = "X"
Else
Button3.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button3.Enabled = False
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If turno = 1 Then
Button4.Text = "0"
Label2.Text = "X"
Else
Button4.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button4.Enabled = False
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If turno = 1 Then
Button5.Text = "0"
Label2.Text = "X"
Else
Button5.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button5.Enabled = False
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If turno = 1 Then
Button6.Text = "0"
Label2.Text = "X"
Else
Button6.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button6.Enabled = False
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If turno = 1 Then
Button7.Text = "0"
Label2.Text = "X"
Else
Button7.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button7.Enabled = False
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If turno = 1 Then
Button8.Text = "0"
Label2.Text = "x"
Else
Button8.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button8.Enabled = False
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If turno = 1 Then
Button9.Text = "0"
Label2.Text = "X"
Else
Button9.Text = "X"
Label2.Text = "0"
End If
turno = turno + 1
If turno > 2 Then
turno = 1
End If
Call victorias()
Button9.Enabled = False
End Sub

Private Sub NuevoJuegoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoJuegoToolStripMenuItem.Click
Call nuevojuego()
End Sub

Private Sub SalidaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalidaToolStripMenuItem.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Text = "X"
jugadorx = 0
jugadpr0 = 0
End Sub