TicTacToe game mode problem [Vb.Net]

Sub PcHumanMove()
Try
iar:
Dim x As New Random
Dim trs As Integer = 0
Dim cas As Integer = 1, cas2 As Integer = 5
Dim y As Integer
Dim y1 As Boolean = False, y2 As Boolean = False, y3 As Boolean = False, y4 As Boolean = False, y5 As Boolean = False
y = x.Next(cas, cas2)
If trs = 5 Then
PcMove()
End If
If y1 = True And y = 1 Then
GoTo iar
ElseIf y2 = True And y = 2 Then
GoTo iar
ElseIf y3 = True And y = 3 Then
GoTo iar
ElseIf y4 = True And y = 4 Then
GoTo iar
ElseIf y5 = True And y = 5 Then
GoTo iar
End If
If y = 1 Then
If zona1.Text = "O" And zona2.Text = "O" And zona3.Enabled = True Then
zona3.Text = "O"
pct3 = True
zona3.Enabled = False
ElseIf zona1.Text = "O" And zona4.Text = "O" And zona7.Enabled = True Then
zona7.Text = "O"
pct7 = True
zona7.Enabled = False
ElseIf zona1.Text = "O" And zona5.Text = "O" And zona9.Enabled = True Then
zona9.Text = "O"
pct9 = True
zona9.Enabled = False
ElseIf zona1.Enabled = True And zona2.Text = "O" And zona3.Text = "O" Then
zona1.Text = "O"
pct = True
zona1.Enabled = False
ElseIf zona1.Enabled = True And zona4.Text = "O" And zona7.Text = "O" Then
zona1.Text = "O"
pct = True
zona1.Enabled = False
ElseIf zona1.Enabled = True And zona5.Text = "O" And zona9.Text = "O" Then
zona1.Text = "O"
pct = True
zona1.Enabled = False
ElseIf zona1.Text = "O" And zona4.Enabled = True And zona7.Text = "O" Then
zona4.Text = "O"
pct4 = True
zona4.Enabled = False
ElseIf zona1.Text = "O" And zona2.Enabled = True And zona3.Text = "O" Then
zona2.Text = "O"
pct2 = True
zona4.Enabled = False
Else
trs += 1
GoTo iar
End If
ElseIf y = 2 Then
If zona2.Text = "O" And zona5.Text = "O" And zona8.Enabled = True Then
zona8.Text = "O"
pct8 = True
zona8.Enabled = False
ElseIf zona2.Text = "O" And zona5.Enabled = True And zona8.Text = "O" Then
zona5.Text = "O"
pct5 = True
zona5.Enabled = False
ElseIf zona2.Enabled = True And zona5.Text = "O" And zona8.Text = "O" Then
zona2.Text = "O"
pct2 = True
zona2.Enabled = False
Else
trs += 1
GoTo iar
End If
ElseIf y = 3 Then
If zona3.Text = "O" And zona6.Text = "O" And zona9.Enabled = True Then
zona9.Text = "O"
pct9 = True
zona9.Enabled = False
ElseIf zona3.Text = "O" And zona6.Enabled = True And zona9.Text = "O" Then
zona6.Text = "O"
pct6 = True
zona6.Enabled = False
ElseIf zona3.Enabled = True And zona6.Text = "O" And zona9.Text = "O" Then
zona3.Text = "O"
pct3 = True
zona3.Enabled = False
ElseIf zona3.Text = "O" And zona5.Text = "O" And zona7.Enabled = True Then
zona7.Text = "O"
pct7 = True
zona7.Enabled = False
ElseIf zona3.Text = "O" And zona5.Enabled = True And zona7.Text = "O" Then
zona7.Text = "O"
pct7 = True
zona7.Enabled = False
ElseIf zona3.Enabled = True And zona5.Text = "O" And zona7.Text = "O" Then
zona3.Text = "O"
pct3 = True
zona3.Enabled = False
Else
trs += 1
GoTo iar
End If
ElseIf y = 4 Then
If zona4.Text = "O" And zona5.Text = "O" And zona6.Enabled = True Then
zona6.Text = "O"
pct6 = True
zona6.Enabled = False
ElseIf zona4.Text = "O" And zona5.Enabled = True And zona6.Text = "O" Then
zona5.Text = "O"
pct5 = True
zona5.Enabled = False
ElseIf zona4.Enabled = True And zona5.Text = "O" And zona6.Text = "O" Then
zona4.Text = "O"
pct4 = True
zona4.Enabled = False
Else
trs += 1
GoTo iar
End If
ElseIf y = 5 Then
If zona7.Text = "O" And zona8.Text = "O" And zona9.Enabled = True Then
zona9.Text = "O"
pct9 = True
zona9.Enabled = False
ElseIf zona7.Text = "O" And zona8.Enabled = True And zona9.Text = "O" Then
zona8.Text = "O"
pct8 = True
zona8.Enabled = False
ElseIf zona7.Enabled = True And zona8.Text = "O" And zona9.Text = "O" Then
zona7.Text = "O"
pct7 = True
zona7.Enabled = False
Else
trs += 1
GoTo iar
End If
End If
Catch ex As Exception
MsgBox("INTERNAL ERROR:" & er2)
End Try
ramase -= 1
End Sub

Public Sub PcMove()
	 Try
iar:
		 Dim x As New Random
		 Dim cas As Integer = 1, cas2 As Integer = 9
		 Dim y As Integer
		 y = x.Next(cas, cas2)
		 If y = 1 Then
			 If pct = False And usr = False Then
				 zona1.Text = "O"
				 pct = True
				 zona1.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 2 Then
			 If pct2 = False And usr2 = False Then
				 zona2.Text = "O"
				 pct2 = True
				 zona2.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 3 Then
			 If pct3 = False And usr3 = False Then
				 zona3.Text = "O"
				 pct3 = True
				 zona3.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 4 Then
			 If pct4 = False And usr4 = False Then
				 zona4.Text = "O"
				 pct4 = True
				 zona4.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 5 Then
			 If pct5 = False And usr5 = False Then
				 zona5.Text = "O"
				 pct5 = True
				 zona5.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 6 Then
			 If pct6 = False And usr6 = False Then
				 zona6.Text = "O"
				 pct6 = True
				 zona6.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 7 Then
			 If pct7 = False And usr7 = False Then
				 zona7.Text = "O"
				 pct7 = True
				 zona7.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 8 Then
			 If pct8 = False And usr8 = False Then
				 zona8.Text = "O"
				 pct8 = True
				 zona8.Enabled = False
			 Else
				 GoTo iar
			 End If
		 ElseIf y = 9 Then
			 If pct9 = False And usr9 = False Then
				 zona9.Text = "O"
				 pct9 = True
				 zona9.Enabled = False
			 Else
				 GoTo iar
			 End If
		 End If
	 Catch ex As Exception
		 MsgBox("INTERNAL ERROR:" & er2)
	 End Try
	 ramase -= 1
End Sub