想当初天真无知,写出了这种雷人代码:
Public Class Form1
Dim MaOC(22, 22) As Integer
Dim u As Integer
Dim Yourname As String
Dim place As String
Dim count As Integer
Dim bon As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
count = 0
bon = 0
place = "c:\Users\lenovo\Desktop\uuu.png"
For i = 0 To 22
For j = 0 To 22
MaOC(i, j) = 1000
Next
Next
For x = 4 To 18
For y = 4 To 18
MaOC(x, y) = 0
Next
Next
VicLo()
End Sub
Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
allsee()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.KeyDown
If TextBox1.Text <> "" Then
Yourname = TextBox1.Text
If Yourname = "MaOC" Then
Label7.Text = "哈哈,我们的名字一样"
End If
If Yourname = "Artist" Then
Label7.Text = "你真的是我的主人吗?"
End If
Label6.Text = "hi,你好" & Yourname
Label2.Visible = True
Label4.Visible = True
Label5.Text = "那我们现在开始OK?"
Button5.Visible = True
TextBox1.Visible = False
Button6.Visible = False
End If
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox1i1.Click
If MaOC(4, 4) <> 1 And MaOC(4, 4) <> 100 Then
MaOC(4, 4) = 100
PictureBox1i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs)
End Sub
Private Sub PictureBox4_Click(sender As Object, e As EventArgs)
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox1i5.Click
If MaOC(4, 8) <> 1 And MaOC(4, 8) <> 100 Then
MaOC(4, 8) = 100
PictureBox1i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Label5.Text = ""
Label5.Text = "哈哈,其实我也累了"
Me.Close()
End Sub
Sub VicLo()
For i = 4 To 18
For j = 4 To 18
If MaOC(i, j) + MaOC(i, j + 1) + MaOC(i, j + 2) + MaOC(i, j + 3) + MaOC(i, j + 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j + 1) + MaOC(i + 2, j + 2) + MaOC(i + 3, j + 3) + MaOC(i + 4, j + 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j + 1) + MaOC(i - 2, j + 2) + MaOC(i - 3, j + 3) + MaOC(i - 4, j + 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j) + MaOC(i + 2, j) + MaOC(i + 3, j) + MaOC(i + 4, j) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i, j - 1) + MaOC(i, j - 2) + MaOC(i, j - 3) + MaOC(i, j - 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j - 1) + MaOC(i + 2, j - 2) + MaOC(i + 3, j - 3) + MaOC(i + 4, j - 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j) + MaOC(i - 2, j) + MaOC(i - 3, j) + MaOC(i - 4, j) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j - 1) + MaOC(i - 2, j - 2) + MaOC(i - 3, j - 3) + MaOC(i - 4, j - 4) = 500 Then
Label5.Text = ""
Label5.Text = "好吧,让你赢一回"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i, j + 1) + MaOC(i, j + 2) + MaOC(i, j + 3) + MaOC(i, j + 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j + 1) + MaOC(i + 2, j + 2) + MaOC(i + 3, j + 3) + MaOC(i + 4, j + 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j + 1) + MaOC(i - 2, j + 2) + MaOC(i - 3, j + 3) + MaOC(i - 4, j + 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j) + MaOC(i + 2, j) + MaOC(i + 3, j) + MaOC(i + 4, j) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i, j - 1) + MaOC(i, j - 2) + MaOC(i, j - 3) + MaOC(i, j - 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i + 1, j - 1) + MaOC(i + 2, j - 2) + MaOC(i + 3, j - 3) + MaOC(i + 4, j - 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j) + MaOC(i - 2, j) + MaOC(i - 3, j) + MaOC(i - 4, j) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
If MaOC(i, j) + MaOC(i - 1, j - 1) + MaOC(i - 2, j - 2) + MaOC(i - 3, j - 3) + MaOC(i - 4, j - 4) = 5 Then
Label5.Text = ""
Label5.Text = "再去练练吧,你不是我对手"
Button1.Enabled = False
Button2.Enabled = False
unusing()
Button3.Enabled = True
PictureBox1.Enabled = False
bon = 1
End If
Next
Next
End Sub
Sub unusing()
u = -1
End Sub
Private Sub PictureBox1i1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1i1.DoubleClick
End Sub
Private Sub PictureBox1i1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1i1.MouseUp
End Sub
Sub allsee()
PictureBox1i1.Visible = True
PictureBox1i2.Visible = True
PictureBox1i3.Visible = True
PictureBox1i4.Visible = True
PictureBox1i5.Visible = True
PictureBox1i6.Visible = True
PictureBox1i7.Visible = True
PictureBox1i8.Visible = True
PictureBox1i9.Visible = True
PictureBox1i10.Visible = True
PictureBox1i11.Visible = True
PictureBox1i12.Visible = True
PictureBox1i13.Visible = True
PictureBox1i14.Visible = True
PictureBox1i15.Visible = True
PictureBox2i1.Visible = True
PictureBox2i2.Visible = True
PictureBox2i3.Visible = True
PictureBox2i4.Visible = True
PictureBox2i5.Visible = True
PictureBox2i6.Visible = True
PictureBox2i7.Visible = True
PictureBox2i8.Visible = True
PictureBox2i9.Visible = True
PictureBox2i10.Visible = True
PictureBox2i11.Visible = True
PictureBox2i12.Visible = True
PictureBox2i13.Visible = True
PictureBox2i14.Visible = True
PictureBox2i15.Visible = True
PictureBox3i1.Visible = True
PictureBox3i2.Visible = True
PictureBox3i3.Visible = True
PictureBox3i4.Visible = True
PictureBox3i5.Visible = True
PictureBox3i6.Visible = True
PictureBox3i7.Visible = True
PictureBox3i8.Visible = True
PictureBox3i9.Visible = True
PictureBox3i10.Visible = True
PictureBox3i11.Visible = True
PictureBox3i12.Visible = True
PictureBox3i13.Visible = True
PictureBox3i14.Visible = True
PictureBox3i15.Visible = True
PictureBox4i1.Visible = True
PictureBox4i2.Visible = True
PictureBox4i3.Visible = True
PictureBox4i4.Visible = True
PictureBox4i5.Visible = True
PictureBox4i6.Visible = True
PictureBox4i7.Visible = True
PictureBox4i8.Visible = True
PictureBox4i9.Visible = True
PictureBox4i10.Visible = True
PictureBox4i11.Visible = True
PictureBox4i12.Visible = True
PictureBox4i13.Visible = True
PictureBox4i14.Visible = True
PictureBox4i15.Visible = True
PictureBox5i1.Visible = True
PictureBox5i2.Visible = True
PictureBox5i3.Visible = True
PictureBox5i4.Visible = True
PictureBox5i5.Visible = True
PictureBox5i6.Visible = True
PictureBox5i7.Visible = True
PictureBox5i8.Visible = True
PictureBox5i9.Visible = True
PictureBox5i10.Visible = True
PictureBox5i11.Visible = True
PictureBox5i12.Visible = True
PictureBox5i13.Visible = True
PictureBox5i14.Visible = True
PictureBox5i15.Visible = True
PictureBox6i1.Visible = True
PictureBox6i2.Visible = True
PictureBox6i3.Visible = True
PictureBox6i4.Visible = True
PictureBox6i5.Visible = True
PictureBox6i6.Visible = True
PictureBox6i7.Visible = True
PictureBox6i8.Visible = True
PictureBox6i9.Visible = True
PictureBox6i10.Visible = True
PictureBox6i11.Visible = True
PictureBox6i12.Visible = True
PictureBox6i13.Visible = True
PictureBox6i14.Visible = True
PictureBox6i15.Visible = True
PictureBox7i1.Visible = True
PictureBox7i2.Visible = True
PictureBox7i3.Visible = True
PictureBox7i4.Visible = True
PictureBox7i5.Visible = True
PictureBox7i6.Visible = True
PictureBox7i7.Visible = True
PictureBox7i8.Visible = True
PictureBox7i9.Visible = True
PictureBox7i10.Visible = True
PictureBox7i11.Visible = True
PictureBox7i12.Visible = True
PictureBox7i13.Visible = True
PictureBox7i14.Visible = True
PictureBox7i15.Visible = True
PictureBox8i1.Visible = True
PictureBox8i2.Visible = True
PictureBox8i3.Visible = True
PictureBox8i4.Visible = True
PictureBox8i5.Visible = True
PictureBox8i6.Visible = True
PictureBox8i7.Visible = True
PictureBox8i8.Visible = True
PictureBox8i9.Visible = True
PictureBox8i10.Visible = True
PictureBox8i11.Visible = True
PictureBox8i12.Visible = True
PictureBox8i13.Visible = True
PictureBox8i14.Visible = True
PictureBox8i15.Visible = True
PictureBox9i1.Visible = True
PictureBox9i2.Visible = True
PictureBox9i3.Visible = True
PictureBox9i4.Visible = True
PictureBox9i5.Visible = True
PictureBox9i6.Visible = True
PictureBox9i7.Visible = True
PictureBox9i8.Visible = True
PictureBox9i9.Visible = True
PictureBox9i10.Visible = True
PictureBox9i11.Visible = True
PictureBox9i12.Visible = True
PictureBox9i13.Visible = True
PictureBox9i14.Visible = True
PictureBox9i15.Visible = True
PictureBox10i1.Visible = True
PictureBox10i2.Visible = True
PictureBox10i3.Visible = True
PictureBox10i4.Visible = True
PictureBox10i5.Visible = True
PictureBox10i6.Visible = True
PictureBox10i7.Visible = True
PictureBox10i8.Visible = True
PictureBox10i9.Visible = True
PictureBox10i10.Visible = True
PictureBox10i11.Visible = True
PictureBox10i12.Visible = True
PictureBox10i13.Visible = True
PictureBox10i14.Visible = True
PictureBox10i15.Visible = True
PictureBox11i1.Visible = True
PictureBox11i2.Visible = True
PictureBox11i3.Visible = True
PictureBox11i4.Visible = True
PictureBox11i5.Visible = True
PictureBox11i6.Visible = True
PictureBox11i7.Visible = True
PictureBox11i8.Visible = True
PictureBox11i9.Visible = True
PictureBox11i10.Visible = True
PictureBox11i11.Visible = True
PictureBox11i12.Visible = True
PictureBox11i13.Visible = True
PictureBox11i14.Visible = True
PictureBox11i15.Visible = True
PictureBox12i1.Visible = True
PictureBox12i2.Visible = True
PictureBox12i3.Visible = True
PictureBox12i4.Visible = True
PictureBox12i5.Visible = True
PictureBox12i6.Visible = True
PictureBox12i7.Visible = True
PictureBox12i8.Visible = True
PictureBox12i9.Visible = True
PictureBox12i10.Visible = True
PictureBox12i11.Visible = True
PictureBox12i12.Visible = True
PictureBox12i13.Visible = True
PictureBox12i14.Visible = True
PictureBox12i15.Visible = True
PictureBox13i1.Visible = True
PictureBox13i2.Visible = True
PictureBox13i3.Visible = True
PictureBox13i4.Visible = True
PictureBox13i5.Visible = True
PictureBox13i6.Visible = True
PictureBox13i7.Visible = True
PictureBox13i8.Visible = True
PictureBox13i9.Visible = True
PictureBox13i10.Visible = True
PictureBox13i11.Visible = True
PictureBox13i12.Visible = True
PictureBox13i13.Visible = True
PictureBox13i14.Visible = True
PictureBox13i15.Visible = True
PictureBox14i1.Visible = True
PictureBox14i2.Visible = True
PictureBox14i3.Visible = True
PictureBox14i4.Visible = True
PictureBox14i5.Visible = True
PictureBox14i6.Visible = True
PictureBox14i7.Visible = True
PictureBox14i8.Visible = True
PictureBox14i9.Visible = True
PictureBox14i10.Visible = True
PictureBox14i11.Visible = True
PictureBox14i12.Visible = True
PictureBox14i13.Visible = True
PictureBox14i14.Visible = True
PictureBox14i15.Visible = True
PictureBox15i1.Visible = True
PictureBox15i2.Visible = True
PictureBox15i3.Visible = True
PictureBox15i4.Visible = True
PictureBox15i5.Visible = True
PictureBox15i6.Visible = True
PictureBox15i7.Visible = True
PictureBox15i8.Visible = True
PictureBox15i9.Visible = True
PictureBox15i10.Visible = True
PictureBox15i11.Visible = True
PictureBox15i12.Visible = True
PictureBox15i13.Visible = True
PictureBox15i14.Visible = True
PictureBox15i15.Visible = True
End Sub
Private Sub PictureBox1i15_Click(sender As Object, e As EventArgs) Handles PictureBox1i14.Click
If MaOC(4, 17) <> 1 And MaOC(4, 17) <> 100 Then
MaOC(4, 17) = 100
PictureBox1i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Sub nosee()
If MaOC(4, 4) = 0 Then
PictureBox1i1.Visible = False
End If
If MaOC(4, 5) = 0 Then
PictureBox1i2.Visible = False
End If
If MaOC(4, 6) = 0 Then
PictureBox1i3.Visible = False
End If
If MaOC(4, 7) = 0 Then
PictureBox1i4.Visible = False
End If
If MaOC(4, 8) = 0 Then
PictureBox1i5.Visible = False
End If
If MaOC(4, 9) = 0 Then
PictureBox1i6.Visible = False
End If
If MaOC(4, 10) = 0 Then
PictureBox1i7.Visible = False
End If
If MaOC(4, 11) = 0 Then
PictureBox1i8.Visible = False
End If
If MaOC(4, 12) = 0 Then
PictureBox1i9.Visible = False
End If
If MaOC(4, 13) = 0 Then
PictureBox1i10.Visible = False
End If
If MaOC(4, 14) = 0 Then
PictureBox1i11.Visible = False
End If
If MaOC(4, 15) = 0 Then
PictureBox1i12.Visible = False
End If
If MaOC(4, 16) = 0 Then
PictureBox1i13.Visible = False
End If
If MaOC(4, 17) = 0 Then
PictureBox1i14.Visible = False
End If
If MaOC(4, 18) = 0 Then
PictureBox1i15.Visible = False
End If
If MaOC(5, 4) = 0 Then
PictureBox2i1.Visible = False
End If
If MaOC(5, 5) = 0 Then
PictureBox2i2.Visible = False
End If
If MaOC(5, 6) = 0 Then
PictureBox2i3.Visible = False
End If
If MaOC(5, 7) = 0 Then
PictureBox2i4.Visible = False
End If
If MaOC(5, 8) = 0 Then
PictureBox2i5.Visible = False
End If
If MaOC(5, 9) = 0 Then
PictureBox2i6.Visible = False
End If
If MaOC(5, 10) = 0 Then
PictureBox2i7.Visible = False
End If
If MaOC(5, 11) = 0 Then
PictureBox2i8.Visible = False
End If
If MaOC(5, 12) = 0 Then
PictureBox2i9.Visible = False
End If
If MaOC(5, 13) = 0 Then
PictureBox2i10.Visible = False
End If
If MaOC(5, 14) = 0 Then
PictureBox2i11.Visible = False
End If
If MaOC(5, 15) = 0 Then
PictureBox2i12.Visible = False
End If
If MaOC(5, 16) = 0 Then
PictureBox2i13.Visible = False
End If
If MaOC(5, 17) = 0 Then
PictureBox2i14.Visible = False
End If
If MaOC(5, 18) = 0 Then
PictureBox2i15.Visible = False
End If
If MaOC(6, 4) = 0 Then
PictureBox3i1.Visible = False
End If
If MaOC(6, 5) = 0 Then
PictureBox3i2.Visible = False
End If
If MaOC(6, 6) = 0 Then
PictureBox3i3.Visible = False
End If
If MaOC(6, 7) = 0 Then
PictureBox3i4.Visible = False
End If
If MaOC(6, 8) = 0 Then
PictureBox3i5.Visible = False
End If
If MaOC(6, 9) = 0 Then
PictureBox3i6.Visible = False
End If
If MaOC(6, 10) = 0 Then
PictureBox3i7.Visible = False
End If
If MaOC(6, 11) = 0 Then
PictureBox3i8.Visible = False
End If
If MaOC(6, 12) = 0 Then
PictureBox3i9.Visible = False
End If
If MaOC(6, 13) = 0 Then
PictureBox3i10.Visible = False
End If
If MaOC(6, 14) = 0 Then
PictureBox3i11.Visible = False
End If
If MaOC(6, 15) = 0 Then
PictureBox3i12.Visible = False
End If
If MaOC(6, 16) = 0 Then
PictureBox3i13.Visible = False
End If
If MaOC(6, 17) = 0 Then
PictureBox3i14.Visible = False
End If
If MaOC(6, 18) = 0 Then
PictureBox3i15.Visible = False
End If
If MaOC(7, 4) = 0 Then
PictureBox4i1.Visible = False
End If
If MaOC(7, 5) = 0 Then
PictureBox4i2.Visible = False
End If
If MaOC(7, 6) = 0 Then
PictureBox4i3.Visible = False
End If
If MaOC(7, 7) = 0 Then
PictureBox4i4.Visible = False
End If
If MaOC(7, 8) = 0 Then
PictureBox4i5.Visible = False
End If
If MaOC(7, 9) = 0 Then
PictureBox4i6.Visible = False
End If
If MaOC(7, 10) = 0 Then
PictureBox4i7.Visible = False
End If
If MaOC(7, 11) = 0 Then
PictureBox4i8.Visible = False
End If
If MaOC(7, 12) = 0 Then
PictureBox4i9.Visible = False
End If
If MaOC(7, 13) = 0 Then
PictureBox4i10.Visible = False
End If
If MaOC(7, 14) = 0 Then
PictureBox4i11.Visible = False
End If
If MaOC(7, 15) = 0 Then
PictureBox4i12.Visible = False
End If
If MaOC(7, 16) = 0 Then
PictureBox4i13.Visible = False
End If
If MaOC(7, 17) = 0 Then
PictureBox4i14.Visible = False
End If
If MaOC(7, 18) = 0 Then
PictureBox4i15.Visible = False
End If
If MaOC(8, 4) = 0 Then
PictureBox5i1.Visible = False
End If
If MaOC(8, 5) = 0 Then
PictureBox5i2.Visible = False
End If
If MaOC(8, 6) = 0 Then
PictureBox5i3.Visible = False
End If
If MaOC(8, 7) = 0 Then
PictureBox5i4.Visible = False
End If
If MaOC(8, 8) = 0 Then
PictureBox5i5.Visible = False
End If
If MaOC(8, 9) = 0 Then
PictureBox5i6.Visible = False
End If
If MaOC(8, 10) = 0 Then
PictureBox5i7.Visible = False
End If
If MaOC(8, 11) = 0 Then
PictureBox5i8.Visible = False
End If
If MaOC(8, 12) = 0 Then
PictureBox5i9.Visible = False
End If
If MaOC(8, 13) = 0 Then
PictureBox5i10.Visible = False
End If
If MaOC(8, 14) = 0 Then
PictureBox5i11.Visible = False
End If
If MaOC(8, 15) = 0 Then
PictureBox5i12.Visible = False
End If
If MaOC(8, 16) = 0 Then
PictureBox5i13.Visible = False
End If
If MaOC(8, 17) = 0 Then
PictureBox5i14.Visible = False
End If
If MaOC(8, 18) = 0 Then
PictureBox5i15.Visible = False
End If
If MaOC(9, 4) = 0 Then
PictureBox6i1.Visible = False
End If
If MaOC(9, 5) = 0 Then
PictureBox6i2.Visible = False
End If
If MaOC(9, 6) = 0 Then
PictureBox6i3.Visible = False
End If
If MaOC(9, 7) = 0 Then
PictureBox6i4.Visible = False
End If
If MaOC(9, 8) = 0 Then
PictureBox6i5.Visible = False
End If
If MaOC(9, 9) = 0 Then
PictureBox6i6.Visible = False
End If
If MaOC(9, 10) = 0 Then
PictureBox6i7.Visible = False
End If
If MaOC(9, 11) = 0 Then
PictureBox6i8.Visible = False
End If
If MaOC(9, 12) = 0 Then
PictureBox6i9.Visible = False
End If
If MaOC(9, 13) = 0 Then
PictureBox6i10.Visible = False
End If
If MaOC(9, 14) = 0 Then
PictureBox6i11.Visible = False
End If
If MaOC(9, 15) = 0 Then
PictureBox6i12.Visible = False
End If
If MaOC(9, 16) = 0 Then
PictureBox6i13.Visible = False
End If
If MaOC(9, 17) = 0 Then
PictureBox6i14.Visible = False
End If
If MaOC(9, 18) = 0 Then
PictureBox6i15.Visible = False
End If
If MaOC(10, 4) = 0 Then
PictureBox7i1.Visible = False
End If
If MaOC(10, 5) = 0 Then
PictureBox7i2.Visible = False
End If
If MaOC(10, 6) = 0 Then
PictureBox7i3.Visible = False
End If
If MaOC(10, 7) = 0 Then
PictureBox7i4.Visible = False
End If
If MaOC(10, 8) = 0 Then
PictureBox7i5.Visible = False
End If
If MaOC(10, 9) = 0 Then
PictureBox7i6.Visible = False
End If
If MaOC(10, 10) = 0 Then
PictureBox7i7.Visible = False
End If
If MaOC(10, 11) = 0 Then
PictureBox7i8.Visible = False
End If
If MaOC(10, 12) = 0 Then
PictureBox7i9.Visible = False
End If
If MaOC(10, 13) = 0 Then
PictureBox7i10.Visible = False
End If
If MaOC(10, 14) = 0 Then
PictureBox7i11.Visible = False
End If
If MaOC(10, 15) = 0 Then
PictureBox7i12.Visible = False
End If
If MaOC(10, 16) = 0 Then
PictureBox7i13.Visible = False
End If
If MaOC(10, 17) = 0 Then
PictureBox7i14.Visible = False
End If
If MaOC(10, 18) = 0 Then
PictureBox7i15.Visible = False
End If
If MaOC(11, 4) = 0 Then
PictureBox8i1.Visible = False
End If
If MaOC(11, 5) = 0 Then
PictureBox8i2.Visible = False
End If
If MaOC(11, 6) = 0 Then
PictureBox8i3.Visible = False
End If
If MaOC(11, 7) = 0 Then
PictureBox8i4.Visible = False
End If
If MaOC(11, 8) = 0 Then
PictureBox8i5.Visible = False
End If
If MaOC(11, 9) = 0 Then
PictureBox8i6.Visible = False
End If
If MaOC(11, 10) = 0 Then
PictureBox8i7.Visible = False
End If
If MaOC(11, 11) = 0 Then
PictureBox8i8.Visible = False
End If
If MaOC(11, 12) = 0 Then
PictureBox8i9.Visible = False
End If
If MaOC(11, 13) = 0 Then
PictureBox8i10.Visible = False
End If
If MaOC(11, 14) = 0 Then
PictureBox8i11.Visible = False
End If
If MaOC(11, 15) = 0 Then
PictureBox8i12.Visible = False
End If
If MaOC(11, 16) = 0 Then
PictureBox8i13.Visible = False
End If
If MaOC(11, 17) = 0 Then
PictureBox8i14.Visible = False
End If
If MaOC(11, 18) = 0 Then
PictureBox8i15.Visible = False
End If
If MaOC(12, 4) = 0 Then
PictureBox9i1.Visible = False
End If
If MaOC(12, 5) = 0 Then
PictureBox9i2.Visible = False
End If
If MaOC(12, 6) = 0 Then
PictureBox9i3.Visible = False
End If
If MaOC(12, 7) = 0 Then
PictureBox9i4.Visible = False
End If
If MaOC(12, 8) = 0 Then
PictureBox9i5.Visible = False
End If
If MaOC(12, 9) = 0 Then
PictureBox9i6.Visible = False
End If
If MaOC(12, 10) = 0 Then
PictureBox9i7.Visible = False
End If
If MaOC(12, 11) = 0 Then
PictureBox9i8.Visible = False
End If
If MaOC(12, 12) = 0 Then
PictureBox9i9.Visible = False
End If
If MaOC(12, 13) = 0 Then
PictureBox9i10.Visible = False
End If
If MaOC(12, 14) = 0 Then
PictureBox9i11.Visible = False
End If
If MaOC(12, 15) = 0 Then
PictureBox9i12.Visible = False
End If
If MaOC(12, 16) = 0 Then
PictureBox9i13.Visible = False
End If
If MaOC(12, 17) = 0 Then
PictureBox9i14.Visible = False
End If
If MaOC(12, 18) = 0 Then
PictureBox9i15.Visible = False
End If
If MaOC(13, 4) = 0 Then
PictureBox10i1.Visible = False
End If
If MaOC(13, 5) = 0 Then
PictureBox10i2.Visible = False
End If
If MaOC(13, 6) = 0 Then
PictureBox10i3.Visible = False
End If
If MaOC(13, 7) = 0 Then
PictureBox10i4.Visible = False
End If
If MaOC(13, 8) = 0 Then
PictureBox10i5.Visible = False
End If
If MaOC(13, 9) = 0 Then
PictureBox10i6.Visible = False
End If
If MaOC(13, 10) = 0 Then
PictureBox10i7.Visible = False
End If
If MaOC(13, 11) = 0 Then
PictureBox10i8.Visible = False
End If
If MaOC(13, 12) = 0 Then
PictureBox10i9.Visible = False
End If
If MaOC(13, 13) = 0 Then
PictureBox10i10.Visible = False
End If
If MaOC(13, 14) = 0 Then
PictureBox10i11.Visible = False
End If
If MaOC(13, 15) = 0 Then
PictureBox10i12.Visible = False
End If
If MaOC(13, 16) = 0 Then
PictureBox10i13.Visible = False
End If
If MaOC(13, 17) = 0 Then
PictureBox10i14.Visible = False
End If
If MaOC(13, 18) = 0 Then
PictureBox10i15.Visible = False
End If
If MaOC(14, 4) = 0 Then
PictureBox11i1.Visible = False
End If
If MaOC(14, 5) = 0 Then
PictureBox11i2.Visible = False
End If
If MaOC(14, 6) = 0 Then
PictureBox11i3.Visible = False
End If
If MaOC(14, 7) = 0 Then
PictureBox11i4.Visible = False
End If
If MaOC(14, 8) = 0 Then
PictureBox11i5.Visible = False
End If
If MaOC(14, 9) = 0 Then
PictureBox11i6.Visible = False
End If
If MaOC(14, 10) = 0 Then
PictureBox11i7.Visible = False
End If
If MaOC(14, 11) = 0 Then
PictureBox11i8.Visible = False
End If
If MaOC(14, 12) = 0 Then
PictureBox11i9.Visible = False
End If
If MaOC(14, 13) = 0 Then
PictureBox11i10.Visible = False
End If
If MaOC(14, 14) = 0 Then
PictureBox11i11.Visible = False
End If
If MaOC(14, 15) = 0 Then
PictureBox11i12.Visible = False
End If
If MaOC(14, 16) = 0 Then
PictureBox11i13.Visible = False
End If
If MaOC(14, 17) = 0 Then
PictureBox11i14.Visible = False
End If
If MaOC(14, 18) = 0 Then
PictureBox11i15.Visible = False
End If
If MaOC(15, 4) = 0 Then
PictureBox12i1.Visible = False
End If
If MaOC(15, 5) = 0 Then
PictureBox12i2.Visible = False
End If
If MaOC(15, 6) = 0 Then
PictureBox12i3.Visible = False
End If
If MaOC(15, 7) = 0 Then
PictureBox12i4.Visible = False
End If
If MaOC(15, 8) = 0 Then
PictureBox12i5.Visible = False
End If
If MaOC(15, 9) = 0 Then
PictureBox12i6.Visible = False
End If
If MaOC(15, 10) = 0 Then
PictureBox12i7.Visible = False
End If
If MaOC(15, 11) = 0 Then
PictureBox12i8.Visible = False
End If
If MaOC(15, 12) = 0 Then
PictureBox12i9.Visible = False
End If
If MaOC(15, 13) = 0 Then
PictureBox12i10.Visible = False
End If
If MaOC(15, 14) = 0 Then
PictureBox12i11.Visible = False
End If
If MaOC(15, 15) = 0 Then
PictureBox12i12.Visible = False
End If
If MaOC(15, 16) = 0 Then
PictureBox12i13.Visible = False
End If
If MaOC(15, 17) = 0 Then
PictureBox12i14.Visible = False
End If
If MaOC(15, 18) = 0 Then
PictureBox12i15.Visible = False
End If
If MaOC(16, 4) = 0 Then
PictureBox13i1.Visible = False
End If
If MaOC(16, 5) = 0 Then
PictureBox13i2.Visible = False
End If
If MaOC(16, 6) = 0 Then
PictureBox13i3.Visible = False
End If
If MaOC(16, 7) = 0 Then
PictureBox13i4.Visible = False
End If
If MaOC(16, 8) = 0 Then
PictureBox13i5.Visible = False
End If
If MaOC(16, 9) = 0 Then
PictureBox13i6.Visible = False
End If
If MaOC(16, 10) = 0 Then
PictureBox13i7.Visible = False
End If
If MaOC(16, 11) = 0 Then
PictureBox13i8.Visible = False
End If
If MaOC(16, 12) = 0 Then
PictureBox13i9.Visible = False
End If
If MaOC(16, 13) = 0 Then
PictureBox13i10.Visible = False
End If
If MaOC(16, 14) = 0 Then
PictureBox13i11.Visible = False
End If
If MaOC(16, 15) = 0 Then
PictureBox13i12.Visible = False
End If
If MaOC(16, 16) = 0 Then
PictureBox13i13.Visible = False
End If
If MaOC(16, 17) = 0 Then
PictureBox13i14.Visible = False
End If
If MaOC(16, 18) = 0 Then
PictureBox13i15.Visible = False
End If
If MaOC(17, 4) = 0 Then
PictureBox14i1.Visible = False
End If
If MaOC(17, 5) = 0 Then
PictureBox14i2.Visible = False
End If
If MaOC(17, 6) = 0 Then
PictureBox14i3.Visible = False
End If
If MaOC(17, 7) = 0 Then
PictureBox14i4.Visible = False
End If
If MaOC(17, 8) = 0 Then
PictureBox14i5.Visible = False
End If
If MaOC(17, 9) = 0 Then
PictureBox14i6.Visible = False
End If
If MaOC(17, 10) = 0 Then
PictureBox14i7.Visible = False
End If
If MaOC(17, 11) = 0 Then
PictureBox14i8.Visible = False
End If
If MaOC(17, 12) = 0 Then
PictureBox14i9.Visible = False
End If
If MaOC(17, 13) = 0 Then
PictureBox14i10.Visible = False
End If
If MaOC(17, 14) = 0 Then
PictureBox14i11.Visible = False
End If
If MaOC(17, 15) = 0 Then
PictureBox14i12.Visible = False
End If
If MaOC(17, 16) = 0 Then
PictureBox14i13.Visible = False
End If
If MaOC(17, 17) = 0 Then
PictureBox14i14.Visible = False
End If
If MaOC(17, 18) = 0 Then
PictureBox14i15.Visible = False
End If
If MaOC(18, 4) = 0 Then
PictureBox15i1.Visible = False
End If
If MaOC(18, 5) = 0 Then
PictureBox15i2.Visible = False
End If
If MaOC(18, 6) = 0 Then
PictureBox15i3.Visible = False
End If
If MaOC(18, 7) = 0 Then
PictureBox15i4.Visible = False
End If
If MaOC(18, 8) = 0 Then
PictureBox15i5.Visible = False
End If
If MaOC(18, 9) = 0 Then
PictureBox15i6.Visible = False
End If
If MaOC(18, 10) = 0 Then
PictureBox15i7.Visible = False
End If
If MaOC(18, 11) = 0 Then
PictureBox15i8.Visible = False
End If
If MaOC(18, 12) = 0 Then
PictureBox15i9.Visible = False
End If
If MaOC(18, 13) = 0 Then
PictureBox15i10.Visible = False
End If
If MaOC(18, 14) = 0 Then
PictureBox15i11.Visible = False
End If
If MaOC(18, 15) = 0 Then
PictureBox15i12.Visible = False
End If
If MaOC(18, 16) = 0 Then
PictureBox15i13.Visible = False
End If
If MaOC(18, 17) = 0 Then
PictureBox15i14.Visible = False
End If
If MaOC(18, 18) = 0 Then
PictureBox15i15.Visible = False
End If
End Sub
Private Function c() As String
Throw New NotImplementedException
End Function
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
End Sub
Sub cou()
count = count + 1
Label4.Text = count
End Sub
Sub chorno()
If MaOC(4, 4) = 1 Then
PictureBox1i1.Visible = True
PictureBox1i1.BackColor = Color.Black
End If
If MaOC(4, 5) = 1 Then
PictureBox1i2.Visible = True
PictureBox1i2.BackColor = Color.Black
End If
If MaOC(4, 6) = 1 Then
PictureBox1i3.Visible = True
PictureBox1i3.BackColor = Color.Black
End If
If MaOC(4, 7) = 1 Then
PictureBox1i4.Visible = True
PictureBox1i4.BackColor = Color.Black
End If
If MaOC(4, 8) = 1 Then
PictureBox1i5.Visible = True
PictureBox1i5.BackColor = Color.Black
End If
If MaOC(4, 9) = 1 Then
PictureBox1i6.Visible = True
PictureBox1i6.BackColor = Color.Black
End If
If MaOC(4, 10) = 1 Then
PictureBox1i7.Visible = True
PictureBox1i7.BackColor = Color.Black
End If
If MaOC(4, 11) = 1 Then
PictureBox1i8.Visible = True
PictureBox1i8.BackColor = Color.Black
End If
If MaOC(4, 12) = 1 Then
PictureBox1i9.Visible = True
PictureBox1i9.BackColor = Color.Black
End If
If MaOC(4, 13) = 1 Then
PictureBox1i10.Visible = True
PictureBox1i10.BackColor = Color.Black
End If
If MaOC(4, 14) = 1 Then
PictureBox1i11.Visible = True
PictureBox1i11.BackColor = Color.Black
End If
If MaOC(4, 15) = 1 Then
PictureBox1i12.Visible = True
PictureBox1i12.BackColor = Color.Black
End If
If MaOC(4, 16) = 1 Then
PictureBox1i13.Visible = True
PictureBox1i13.BackColor = Color.Black
End If
If MaOC(4, 17) = 1 Then
PictureBox1i14.Visible = True
PictureBox1i14.BackColor = Color.Black
End If
If MaOC(4, 18) = 1 Then
PictureBox1i15.Visible = True
PictureBox1i15.BackColor = Color.Black
End If
If MaOC(5, 4) = 1 Then
PictureBox2i1.Visible = True
PictureBox2i1.BackColor = Color.Black
End If
If MaOC(5, 5) = 1 Then
PictureBox2i2.Visible = True
PictureBox2i2.BackColor = Color.Black
End If
If MaOC(5, 6) = 1 Then
PictureBox2i3.Visible = True
PictureBox2i3.BackColor = Color.Black
End If
If MaOC(5, 7) = 1 Then
PictureBox2i4.Visible = True
PictureBox2i4.BackColor = Color.Black
End If
If MaOC(5, 8) = 1 Then
PictureBox2i5.Visible = True
PictureBox2i5.BackColor = Color.Black
End If
If MaOC(5, 9) = 1 Then
PictureBox2i6.Visible = True
PictureBox2i6.BackColor = Color.Black
End If
If MaOC(5, 10) = 1 Then
PictureBox2i7.Visible = True
PictureBox2i7.BackColor = Color.Black
End If
If MaOC(5, 11) = 1 Then
PictureBox2i8.Visible = True
PictureBox2i8.BackColor = Color.Black
End If
If MaOC(5, 12) = 1 Then
PictureBox2i9.Visible = True
PictureBox2i9.BackColor = Color.Black
End If
If MaOC(5, 13) = 1 Then
PictureBox2i10.Visible = True
PictureBox2i10.BackColor = Color.Black
End If
If MaOC(5, 14) = 1 Then
PictureBox2i11.Visible = True
PictureBox2i11.BackColor = Color.Black
End If
If MaOC(5, 15) = 1 Then
PictureBox2i12.Visible = True
PictureBox2i12.BackColor = Color.Black
End If
If MaOC(5, 16) = 1 Then
PictureBox2i13.Visible = True
PictureBox2i13.BackColor = Color.Black
End If
If MaOC(5, 17) = 1 Then
PictureBox2i14.Visible = True
PictureBox2i14.BackColor = Color.Black
End If
If MaOC(5, 18) = 1 Then
PictureBox2i15.Visible = True
PictureBox2i15.BackColor = Color.Black
End If
If MaOC(6, 4) = 1 Then
PictureBox3i1.Visible = True
PictureBox3i1.BackColor = Color.Black
End If
If MaOC(6, 5) = 1 Then
PictureBox3i2.Visible = True
PictureBox3i2.BackColor = Color.Black
End If
If MaOC(6, 6) = 1 Then
PictureBox3i3.Visible = True
PictureBox3i3.BackColor = Color.Black
End If
If MaOC(6, 7) = 1 Then
PictureBox3i4.Visible = True
PictureBox3i4.BackColor = Color.Black
End If
If MaOC(6, 8) = 1 Then
PictureBox3i5.Visible = True
PictureBox3i5.BackColor = Color.Black
End If
If MaOC(6, 9) = 1 Then
PictureBox3i6.Visible = True
PictureBox3i6.BackColor = Color.Black
End If
If MaOC(6, 10) = 1 Then
PictureBox3i7.Visible = True
PictureBox3i7.BackColor = Color.Black
End If
If MaOC(6, 11) = 1 Then
PictureBox3i8.Visible = True
PictureBox3i8.BackColor = Color.Black
End If
If MaOC(6, 12) = 1 Then
PictureBox3i9.Visible = True
PictureBox3i9.BackColor = Color.Black
End If
If MaOC(6, 13) = 1 Then
PictureBox3i10.Visible = True
PictureBox3i10.BackColor = Color.Black
End If
If MaOC(6, 14) = 1 Then
PictureBox3i11.Visible = True
PictureBox3i11.BackColor = Color.Black
End If
If MaOC(6, 15) = 1 Then
PictureBox3i12.Visible = True
PictureBox3i12.BackColor = Color.Black
End If
If MaOC(6, 16) = 1 Then
PictureBox3i13.Visible = True
PictureBox3i13.BackColor = Color.Black
End If
If MaOC(6, 17) = 1 Then
PictureBox3i14.Visible = True
PictureBox3i14.BackColor = Color.Black
End If
If MaOC(6, 18) = 1 Then
PictureBox3i15.Visible = True
PictureBox3i15.BackColor = Color.Black
End If
If MaOC(7, 4) = 1 Then
PictureBox4i1.Visible = True
PictureBox4i1.BackColor = Color.Black
End If
If MaOC(7, 5) = 1 Then
PictureBox4i2.Visible = True
PictureBox4i2.BackColor = Color.Black
End If
If MaOC(7, 6) = 1 Then
PictureBox4i3.Visible = True
PictureBox4i3.BackColor = Color.Black
End If
If MaOC(7, 7) = 1 Then
PictureBox4i4.Visible = True
PictureBox4i4.BackColor = Color.Black
End If
If MaOC(7, 8) = 1 Then
PictureBox4i5.Visible = True
PictureBox4i5.BackColor = Color.Black
End If
If MaOC(7, 9) = 1 Then
PictureBox4i6.Visible = True
PictureBox4i6.BackColor = Color.Black
End If
If MaOC(7, 10) = 1 Then
PictureBox4i7.Visible = True
PictureBox4i7.BackColor = Color.Black
End If
If MaOC(7, 11) = 1 Then
PictureBox4i8.Visible = True
PictureBox4i8.BackColor = Color.Black
End If
If MaOC(7, 12) = 1 Then
PictureBox4i9.Visible = True
PictureBox4i9.BackColor = Color.Black
End If
If MaOC(7, 13) = 1 Then
PictureBox4i10.Visible = True
PictureBox4i10.BackColor = Color.Black
End If
If MaOC(7, 14) = 1 Then
PictureBox4i11.Visible = True
PictureBox4i11.BackColor = Color.Black
End If
If MaOC(7, 15) = 1 Then
PictureBox4i12.Visible = True
PictureBox4i12.BackColor = Color.Black
End If
If MaOC(7, 16) = 1 Then
PictureBox4i13.Visible = True
PictureBox4i13.BackColor = Color.Black
End If
If MaOC(7, 17) = 1 Then
PictureBox4i14.Visible = True
PictureBox4i14.BackColor = Color.Black
End If
If MaOC(7, 18) = 1 Then
PictureBox4i15.Visible = True
PictureBox4i15.BackColor = Color.Black
End If
If MaOC(8, 4) = 1 Then
PictureBox5i1.Visible = True
PictureBox5i1.BackColor = Color.Black
End If
If MaOC(8, 5) = 1 Then
PictureBox5i2.Visible = True
PictureBox5i2.BackColor = Color.Black
End If
If MaOC(8, 6) = 1 Then
PictureBox5i3.Visible = True
PictureBox5i3.BackColor = Color.Black
End If
If MaOC(8, 7) = 1 Then
PictureBox5i4.Visible = True
PictureBox5i4.BackColor = Color.Black
End If
If MaOC(8, 8) = 1 Then
PictureBox5i5.Visible = True
PictureBox5i5.BackColor = Color.Black
End If
If MaOC(8, 9) = 1 Then
PictureBox5i6.Visible = True
PictureBox5i6.BackColor = Color.Black
End If
If MaOC(8, 10) = 1 Then
PictureBox5i7.Visible = True
PictureBox5i7.BackColor = Color.Black
End If
If MaOC(8, 11) = 1 Then
PictureBox5i8.Visible = True
PictureBox5i8.BackColor = Color.Black
End If
If MaOC(8, 12) = 1 Then
PictureBox5i9.Visible = True
PictureBox5i9.BackColor = Color.Black
End If
If MaOC(8, 13) = 1 Then
PictureBox5i10.Visible = True
PictureBox5i10.BackColor = Color.Black
End If
If MaOC(8, 14) = 1 Then
PictureBox5i11.Visible = True
PictureBox5i11.BackColor = Color.Black
End If
If MaOC(8, 15) = 1 Then
PictureBox5i12.Visible = True
PictureBox5i12.BackColor = Color.Black
End If
If MaOC(8, 16) = 1 Then
PictureBox5i13.Visible = True
PictureBox5i13.BackColor = Color.Black
End If
If MaOC(8, 17) = 1 Then
PictureBox5i14.Visible = True
PictureBox5i14.BackColor = Color.Black
End If
If MaOC(8, 18) = 1 Then
PictureBox5i15.Visible = True
PictureBox5i15.BackColor = Color.Black
End If
If MaOC(9, 4) = 1 Then
PictureBox6i1.Visible = True
PictureBox6i1.BackColor = Color.Black
End If
If MaOC(9, 5) = 1 Then
PictureBox6i2.Visible = True
PictureBox6i2.BackColor = Color.Black
End If
If MaOC(9, 6) = 1 Then
PictureBox6i3.Visible = True
PictureBox6i3.BackColor = Color.Black
End If
If MaOC(9, 7) = 1 Then
PictureBox6i4.Visible = True
PictureBox6i4.BackColor = Color.Black
End If
If MaOC(9, 8) = 1 Then
PictureBox6i5.Visible = True
PictureBox6i5.BackColor = Color.Black
End If
If MaOC(9, 9) = 1 Then
PictureBox6i6.Visible = True
PictureBox6i6.BackColor = Color.Black
End If
If MaOC(9, 10) = 1 Then
PictureBox6i7.Visible = True
PictureBox6i7.BackColor = Color.Black
End If
If MaOC(9, 11) = 1 Then
PictureBox6i8.Visible = True
PictureBox6i8.BackColor = Color.Black
End If
If MaOC(9, 12) = 1 Then
PictureBox6i9.Visible = True
PictureBox6i9.BackColor = Color.Black
End If
If MaOC(9, 13) = 1 Then
PictureBox6i10.Visible = True
PictureBox6i10.BackColor = Color.Black
End If
If MaOC(9, 14) = 1 Then
PictureBox6i11.Visible = True
PictureBox6i11.BackColor = Color.Black
End If
If MaOC(9, 15) = 1 Then
PictureBox6i12.Visible = True
PictureBox6i12.BackColor = Color.Black
End If
If MaOC(9, 16) = 1 Then
PictureBox6i13.Visible = True
PictureBox6i13.BackColor = Color.Black
End If
If MaOC(9, 17) = 1 Then
PictureBox6i14.Visible = True
PictureBox6i14.BackColor = Color.Black
End If
If MaOC(9, 18) = 1 Then
PictureBox6i15.Visible = True
PictureBox6i15.BackColor = Color.Black
End If
If MaOC(10, 4) = 1 Then
PictureBox7i1.Visible = True
PictureBox7i1.BackColor = Color.Black
End If
If MaOC(10, 5) = 1 Then
PictureBox7i2.Visible = True
PictureBox7i2.BackColor = Color.Black
End If
If MaOC(10, 6) = 1 Then
PictureBox7i3.Visible = True
PictureBox7i3.BackColor = Color.Black
End If
If MaOC(10, 7) = 1 Then
PictureBox7i4.Visible = True
PictureBox7i4.BackColor = Color.Black
End If
If MaOC(10, 8) = 1 Then
PictureBox7i5.Visible = True
PictureBox7i5.BackColor = Color.Black
End If
If MaOC(10, 9) = 1 Then
PictureBox7i6.Visible = True
PictureBox7i6.BackColor = Color.Black
End If
If MaOC(10, 10) = 1 Then
PictureBox7i7.Visible = True
PictureBox7i7.BackColor = Color.Black
End If
If MaOC(10, 11) = 1 Then
PictureBox7i8.Visible = True
PictureBox7i8.BackColor = Color.Black
End If
If MaOC(10, 12) = 1 Then
PictureBox7i9.Visible = True
PictureBox7i9.BackColor = Color.Black
End If
If MaOC(10, 13) = 1 Then
PictureBox7i10.Visible = True
PictureBox7i10.BackColor = Color.Black
End If
If MaOC(10, 14) = 1 Then
PictureBox7i11.Visible = True
PictureBox7i11.BackColor = Color.Black
End If
If MaOC(10, 15) = 1 Then
PictureBox7i12.Visible = True
PictureBox7i12.BackColor = Color.Black
End If
If MaOC(10, 16) = 1 Then
PictureBox7i13.Visible = True
PictureBox7i13.BackColor = Color.Black
End If
If MaOC(10, 17) = 1 Then
PictureBox7i14.Visible = True
PictureBox7i14.BackColor = Color.Black
End If
If MaOC(10, 18) = 1 Then
PictureBox7i15.Visible = True
PictureBox7i15.BackColor = Color.Black
End If
If MaOC(11, 4) = 1 Then
PictureBox8i1.Visible = True
PictureBox8i1.BackColor = Color.Black
End If
If MaOC(11, 5) = 1 Then
PictureBox8i2.Visible = True
PictureBox8i2.BackColor = Color.Black
End If
If MaOC(11, 6) = 1 Then
PictureBox8i3.Visible = True
PictureBox8i3.BackColor = Color.Black
End If
If MaOC(11, 7) = 1 Then
PictureBox8i4.Visible = True
PictureBox8i4.BackColor = Color.Black
End If
If MaOC(11, 8) = 1 Then
PictureBox8i5.Visible = True
PictureBox8i5.BackColor = Color.Black
End If
If MaOC(11, 9) = 1 Then
PictureBox8i6.Visible = True
PictureBox8i6.BackColor = Color.Black
End If
If MaOC(11, 10) = 1 Then
PictureBox8i7.Visible = True
PictureBox8i7.BackColor = Color.Black
End If
If MaOC(11, 11) = 1 Then
PictureBox8i8.Visible = True
PictureBox8i8.BackColor = Color.Black
End If
If MaOC(11, 12) = 1 Then
PictureBox8i9.Visible = True
PictureBox8i9.BackColor = Color.Black
End If
If MaOC(11, 13) = 1 Then
PictureBox8i10.Visible = True
PictureBox8i10.BackColor = Color.Black
End If
If MaOC(11, 14) = 1 Then
PictureBox8i11.Visible = True
PictureBox8i11.BackColor = Color.Black
End If
If MaOC(11, 15) = 1 Then
PictureBox8i12.Visible = True
PictureBox8i12.BackColor = Color.Black
End If
If MaOC(11, 16) = 1 Then
PictureBox8i13.Visible = True
PictureBox8i13.BackColor = Color.Black
End If
If MaOC(11, 17) = 1 Then
PictureBox8i14.Visible = True
PictureBox8i14.BackColor = Color.Black
End If
If MaOC(11, 18) = 1 Then
PictureBox8i15.Visible = True
PictureBox8i15.BackColor = Color.Black
End If
If MaOC(12, 4) = 1 Then
PictureBox9i1.Visible = True
PictureBox9i1.BackColor = Color.Black
End If
If MaOC(12, 5) = 1 Then
PictureBox9i2.Visible = True
PictureBox9i2.BackColor = Color.Black
End If
If MaOC(12, 6) = 1 Then
PictureBox9i3.Visible = True
PictureBox9i3.BackColor = Color.Black
End If
If MaOC(12, 7) = 1 Then
PictureBox9i4.Visible = True
PictureBox9i4.BackColor = Color.Black
End If
If MaOC(12, 8) = 1 Then
PictureBox9i5.Visible = True
PictureBox9i5.BackColor = Color.Black
End If
If MaOC(12, 9) = 1 Then
PictureBox9i6.Visible = True
PictureBox9i6.BackColor = Color.Black
End If
If MaOC(12, 10) = 1 Then
PictureBox9i7.Visible = True
PictureBox9i7.BackColor = Color.Black
End If
If MaOC(12, 11) = 1 Then
PictureBox9i8.Visible = True
PictureBox9i8.BackColor = Color.Black
End If
If MaOC(12, 12) = 1 Then
PictureBox9i9.Visible = True
PictureBox9i9.BackColor = Color.Black
End If
If MaOC(12, 13) = 1 Then
PictureBox9i10.Visible = True
PictureBox9i10.BackColor = Color.Black
End If
If MaOC(12, 14) = 1 Then
PictureBox9i11.Visible = True
PictureBox9i11.BackColor = Color.Black
End If
If MaOC(12, 15) = 1 Then
PictureBox9i12.Visible = True
PictureBox9i12.BackColor = Color.Black
End If
If MaOC(12, 16) = 1 Then
PictureBox9i13.Visible = True
PictureBox9i13.BackColor = Color.Black
End If
If MaOC(12, 17) = 1 Then
PictureBox9i14.Visible = True
PictureBox9i14.BackColor = Color.Black
End If
If MaOC(12, 18) = 1 Then
PictureBox9i15.Visible = True
PictureBox9i15.BackColor = Color.Black
End If
If MaOC(13, 4) = 1 Then
PictureBox10i1.Visible = True
PictureBox10i1.BackColor = Color.Black
End If
If MaOC(13, 5) = 1 Then
PictureBox10i2.Visible = True
PictureBox10i2.BackColor = Color.Black
End If
If MaOC(13, 6) = 1 Then
PictureBox10i3.Visible = True
PictureBox10i3.BackColor = Color.Black
End If
If MaOC(13, 7) = 1 Then
PictureBox10i4.Visible = True
PictureBox10i4.BackColor = Color.Black
End If
If MaOC(13, 8) = 1 Then
PictureBox10i5.Visible = True
PictureBox10i5.BackColor = Color.Black
End If
If MaOC(13, 9) = 1 Then
PictureBox10i6.Visible = True
PictureBox10i6.BackColor = Color.Black
End If
If MaOC(13, 10) = 1 Then
PictureBox10i7.Visible = True
PictureBox10i7.BackColor = Color.Black
End If
If MaOC(13, 11) = 1 Then
PictureBox10i8.Visible = True
PictureBox10i8.BackColor = Color.Black
End If
If MaOC(13, 12) = 1 Then
PictureBox10i9.Visible = True
PictureBox10i9.BackColor = Color.Black
End If
If MaOC(13, 13) = 1 Then
PictureBox10i10.Visible = True
PictureBox10i10.BackColor = Color.Black
End If
If MaOC(13, 14) = 1 Then
PictureBox10i11.Visible = True
PictureBox10i11.BackColor = Color.Black
End If
If MaOC(13, 15) = 1 Then
PictureBox10i12.Visible = True
PictureBox10i12.BackColor = Color.Black
End If
If MaOC(13, 16) = 1 Then
PictureBox10i13.Visible = True
PictureBox10i13.BackColor = Color.Black
End If
If MaOC(13, 17) = 1 Then
PictureBox10i14.Visible = True
PictureBox10i14.BackColor = Color.Black
End If
If MaOC(13, 18) = 1 Then
PictureBox10i15.Visible = True
PictureBox10i15.BackColor = Color.Black
End If
If MaOC(14, 4) = 1 Then
PictureBox11i1.Visible = True
PictureBox11i1.BackColor = Color.Black
End If
If MaOC(14, 5) = 1 Then
PictureBox11i2.Visible = True
PictureBox11i2.BackColor = Color.Black
End If
If MaOC(14, 6) = 1 Then
PictureBox11i3.Visible = True
PictureBox11i3.BackColor = Color.Black
End If
If MaOC(14, 7) = 1 Then
PictureBox11i4.Visible = True
PictureBox11i4.BackColor = Color.Black
End If
If MaOC(14, 8) = 1 Then
PictureBox11i5.Visible = True
PictureBox11i5.BackColor = Color.Black
End If
If MaOC(14, 9) = 1 Then
PictureBox11i6.Visible = True
PictureBox11i6.BackColor = Color.Black
End If
If MaOC(14, 10) = 1 Then
PictureBox11i7.Visible = True
PictureBox11i7.BackColor = Color.Black
End If
If MaOC(14, 11) = 1 Then
PictureBox11i8.Visible = True
PictureBox11i8.BackColor = Color.Black
End If
If MaOC(14, 12) = 1 Then
PictureBox11i9.Visible = True
PictureBox11i9.BackColor = Color.Black
End If
If MaOC(14, 13) = 1 Then
PictureBox11i10.Visible = True
PictureBox11i10.BackColor = Color.Black
End If
If MaOC(14, 14) = 1 Then
PictureBox11i11.Visible = True
PictureBox11i11.BackColor = Color.Black
End If
If MaOC(14, 15) = 1 Then
PictureBox11i12.Visible = True
PictureBox11i12.BackColor = Color.Black
End If
If MaOC(14, 16) = 1 Then
PictureBox11i13.Visible = True
PictureBox11i13.BackColor = Color.Black
End If
If MaOC(14, 17) = 1 Then
PictureBox11i14.Visible = True
PictureBox11i14.BackColor = Color.Black
End If
If MaOC(14, 18) = 1 Then
PictureBox11i15.Visible = True
PictureBox11i15.BackColor = Color.Black
End If
If MaOC(15, 4) = 1 Then
PictureBox12i1.Visible = True
PictureBox12i1.BackColor = Color.Black
End If
If MaOC(15, 5) = 1 Then
PictureBox12i2.Visible = True
PictureBox12i2.BackColor = Color.Black
End If
If MaOC(15, 6) = 1 Then
PictureBox12i3.Visible = True
PictureBox12i3.BackColor = Color.Black
End If
If MaOC(15, 7) = 1 Then
PictureBox12i4.Visible = True
PictureBox12i4.BackColor = Color.Black
End If
If MaOC(15, 8) = 1 Then
PictureBox12i5.Visible = True
PictureBox12i5.BackColor = Color.Black
End If
If MaOC(15, 9) = 1 Then
PictureBox12i6.Visible = True
PictureBox12i6.BackColor = Color.Black
End If
If MaOC(15, 10) = 1 Then
PictureBox12i7.Visible = True
PictureBox12i7.BackColor = Color.Black
End If
If MaOC(15, 11) = 1 Then
PictureBox12i8.Visible = True
PictureBox12i8.BackColor = Color.Black
End If
If MaOC(15, 12) = 1 Then
PictureBox12i9.Visible = True
PictureBox12i9.BackColor = Color.Black
End If
If MaOC(15, 13) = 1 Then
PictureBox12i10.Visible = True
PictureBox12i10.BackColor = Color.Black
End If
If MaOC(15, 14) = 1 Then
PictureBox12i11.Visible = True
PictureBox12i11.BackColor = Color.Black
End If
If MaOC(15, 15) = 1 Then
PictureBox12i12.Visible = True
PictureBox12i12.BackColor = Color.Black
End If
If MaOC(15, 16) = 1 Then
PictureBox12i13.Visible = True
PictureBox12i13.BackColor = Color.Black
End If
If MaOC(15, 17) = 1 Then
PictureBox12i14.Visible = True
PictureBox12i14.BackColor = Color.Black
End If
If MaOC(15, 18) = 1 Then
PictureBox12i15.Visible = True
PictureBox12i15.BackColor = Color.Black
End If
If MaOC(16, 4) = 1 Then
PictureBox13i1.Visible = True
PictureBox13i1.BackColor = Color.Black
End If
If MaOC(16, 5) = 1 Then
PictureBox13i2.Visible = True
PictureBox13i2.BackColor = Color.Black
End If
If MaOC(16, 6) = 1 Then
PictureBox13i3.Visible = True
PictureBox13i3.BackColor = Color.Black
End If
If MaOC(16, 7) = 1 Then
PictureBox13i4.Visible = True
PictureBox13i4.BackColor = Color.Black
End If
If MaOC(16, 8) = 1 Then
PictureBox13i5.Visible = True
PictureBox13i5.BackColor = Color.Black
End If
If MaOC(16, 9) = 1 Then
PictureBox13i6.Visible = True
PictureBox13i6.BackColor = Color.Black
End If
If MaOC(16, 10) = 1 Then
PictureBox13i7.Visible = True
PictureBox13i7.BackColor = Color.Black
End If
If MaOC(16, 11) = 1 Then
PictureBox13i8.Visible = True
PictureBox13i8.BackColor = Color.Black
End If
If MaOC(16, 12) = 1 Then
PictureBox13i9.Visible = True
PictureBox13i9.BackColor = Color.Black
End If
If MaOC(16, 13) = 1 Then
PictureBox13i10.Visible = True
PictureBox13i10.BackColor = Color.Black
End If
If MaOC(16, 14) = 1 Then
PictureBox13i11.Visible = True
PictureBox13i11.BackColor = Color.Black
End If
If MaOC(16, 15) = 1 Then
PictureBox13i12.Visible = True
PictureBox13i12.BackColor = Color.Black
End If
If MaOC(16, 16) = 1 Then
PictureBox13i13.Visible = True
PictureBox13i13.BackColor = Color.Black
End If
If MaOC(16, 17) = 1 Then
PictureBox13i14.Visible = True
PictureBox13i14.BackColor = Color.Black
End If
If MaOC(16, 18) = 1 Then
PictureBox13i15.Visible = True
PictureBox13i15.BackColor = Color.Black
End If
If MaOC(17, 4) = 1 Then
PictureBox14i1.Visible = True
PictureBox14i1.BackColor = Color.Black
End If
If MaOC(17, 5) = 1 Then
PictureBox14i2.Visible = True
PictureBox14i2.BackColor = Color.Black
End If
If MaOC(17, 6) = 1 Then
PictureBox14i3.Visible = True
PictureBox14i3.BackColor = Color.Black
End If
If MaOC(17, 7) = 1 Then
PictureBox14i4.Visible = True
PictureBox14i4.BackColor = Color.Black
End If
If MaOC(17, 8) = 1 Then
PictureBox14i5.Visible = True
PictureBox14i5.BackColor = Color.Black
End If
If MaOC(17, 9) = 1 Then
PictureBox14i6.Visible = True
PictureBox14i6.BackColor = Color.Black
End If
If MaOC(17, 10) = 1 Then
PictureBox14i7.Visible = True
PictureBox14i7.BackColor = Color.Black
End If
If MaOC(17, 11) = 1 Then
PictureBox14i8.Visible = True
PictureBox14i8.BackColor = Color.Black
End If
If MaOC(17, 12) = 1 Then
PictureBox14i9.Visible = True
PictureBox14i9.BackColor = Color.Black
End If
If MaOC(17, 13) = 1 Then
PictureBox14i10.Visible = True
PictureBox14i10.BackColor = Color.Black
End If
If MaOC(17, 14) = 1 Then
PictureBox14i11.Visible = True
PictureBox14i11.BackColor = Color.Black
End If
If MaOC(17, 15) = 1 Then
PictureBox14i12.Visible = True
PictureBox14i12.BackColor = Color.Black
End If
If MaOC(17, 16) = 1 Then
PictureBox14i13.Visible = True
PictureBox14i13.BackColor = Color.Black
End If
If MaOC(17, 17) = 1 Then
PictureBox14i14.Visible = True
PictureBox14i14.BackColor = Color.Black
End If
If MaOC(17, 18) = 1 Then
PictureBox14i15.Visible = True
PictureBox14i15.BackColor = Color.Black
End If
If MaOC(18, 4) = 1 Then
PictureBox15i1.Visible = True
PictureBox15i1.BackColor = Color.Black
End If
If MaOC(18, 5) = 1 Then
PictureBox15i2.Visible = True
PictureBox15i2.BackColor = Color.Black
End If
If MaOC(18, 6) = 1 Then
PictureBox15i3.Visible = True
PictureBox15i3.BackColor = Color.Black
End If
If MaOC(18, 7) = 1 Then
PictureBox15i4.Visible = True
PictureBox15i4.BackColor = Color.Black
End If
If MaOC(18, 8) = 1 Then
PictureBox15i5.Visible = True
PictureBox15i5.BackColor = Color.Black
End If
If MaOC(18, 9) = 1 Then
PictureBox15i6.Visible = True
PictureBox15i6.BackColor = Color.Black
End If
If MaOC(18, 10) = 1 Then
PictureBox15i7.Visible = True
PictureBox15i7.BackColor = Color.Black
End If
If MaOC(18, 11) = 1 Then
PictureBox15i8.Visible = True
PictureBox15i8.BackColor = Color.Black
End If
If MaOC(18, 12) = 1 Then
PictureBox15i9.Visible = True
PictureBox15i9.BackColor = Color.Black
End If
If MaOC(18, 13) = 1 Then
PictureBox15i10.Visible = True
PictureBox15i10.BackColor = Color.Black
End If
If MaOC(18, 14) = 1 Then
PictureBox15i11.Visible = True
PictureBox15i11.BackColor = Color.Black
End If
If MaOC(18, 15) = 1 Then
PictureBox15i12.Visible = True
PictureBox15i12.BackColor = Color.Black
End If
If MaOC(18, 16) = 1 Then
PictureBox15i13.Visible = True
PictureBox15i13.BackColor = Color.Black
End If
If MaOC(18, 17) = 1 Then
PictureBox15i14.Visible = True
PictureBox15i14.BackColor = Color.Black
End If
If MaOC(18, 18) = 1 Then
PictureBox15i15.Visible = True
PictureBox15i15.BackColor = Color.Black
End If
VicLo()
End Sub
Private Sub PictureBox1i2_Click(sender As Object, e As EventArgs) Handles PictureBox1i2.Click
If MaOC(4, 5) <> 1 And MaOC(4, 5) <> 100 Then
MaOC(4, 5) = 100
PictureBox1i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i3_Click(sender As Object, e As EventArgs) Handles PictureBox1i3.Click
If MaOC(4, 6) <> 1 And MaOC(4, 6) <> 100 Then
MaOC(4, 6) = 100
PictureBox1i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i4_Click(sender As Object, e As EventArgs) Handles PictureBox1i4.Click
If MaOC(4, 7) <> 1 And MaOC(4, 7) <> 100 Then
MaOC(4, 7) = 100
PictureBox1i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i6_Click(sender As Object, e As EventArgs) Handles PictureBox1i6.Click
If MaOC(4, 9) <> 1 And MaOC(4, 9) <> 100 Then
MaOC(4, 9) = 100
PictureBox1i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i7_Click(sender As Object, e As EventArgs) Handles PictureBox1i7.Click
If MaOC(4, 10) <> 1 And MaOC(4, 10) <> 100 Then
MaOC(4, 10) = 100
PictureBox1i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i8_Click(sender As Object, e As EventArgs) Handles PictureBox1i8.Click
If MaOC(4, 11) <> 1 And MaOC(4, 11) <> 100 Then
MaOC(4, 11) = 100
PictureBox1i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i9_Click(sender As Object, e As EventArgs) Handles PictureBox1i9.Click
If MaOC(4, 12) <> 1 And MaOC(4, 12) <> 100 Then
MaOC(4, 12) = 100
PictureBox1i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i10_Click(sender As Object, e As EventArgs) Handles PictureBox1i10.Click
If MaOC(4, 13) <> 1 And MaOC(4, 13) <> 100 Then
MaOC(4, 13) = 100
PictureBox1i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i11_Click(sender As Object, e As EventArgs) Handles PictureBox1i11.Click
If MaOC(4, 14) <> 1 And MaOC(4, 14) <> 100 Then
MaOC(4, 14) = 100
PictureBox1i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i12_Click(sender As Object, e As EventArgs) Handles PictureBox1i12.Click
If MaOC(4, 15) <> 1 And MaOC(4, 15) <> 100 Then
MaOC(4, 15) = 100
PictureBox1i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i13_Click(sender As Object, e As EventArgs) Handles PictureBox1i13.Click
If MaOC(4, 16) <> 1 And MaOC(4, 16) <> 100 Then
MaOC(4, 16) = 100
PictureBox1i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox1i15_Click_1(sender As Object, e As EventArgs) Handles PictureBox1i15.Click
If MaOC(4, 18) <> 1 And MaOC(4, 18) <> 100 Then
MaOC(4, 18) = 100
PictureBox1i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i1_Click(sender As Object, e As EventArgs) Handles PictureBox2i1.Click
If MaOC(5, 4) <> 1 And MaOC(5, 4) <> 100 Then
MaOC(5, 4) = 100
PictureBox2i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i2_Click(sender As Object, e As EventArgs) Handles PictureBox2i2.Click
If MaOC(5, 5) <> 1 And MaOC(5, 5) <> 100 Then
MaOC(5, 5) = 100
PictureBox2i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i3_Click(sender As Object, e As EventArgs) Handles PictureBox2i3.Click
If MaOC(5, 6) <> 1 And MaOC(5, 6) <> 100 Then
MaOC(5, 6) = 100
PictureBox2i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i4_Click(sender As Object, e As EventArgs) Handles PictureBox2i4.Click
If MaOC(5, 7) <> 1 And MaOC(5, 7) <> 100 Then
MaOC(5, 7) = 100
PictureBox2i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i5_Click(sender As Object, e As EventArgs) Handles PictureBox2i5.Click
If MaOC(5, 8) <> 1 And MaOC(5, 8) <> 100 Then
MaOC(5, 8) = 100
PictureBox2i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i6_Click(sender As Object, e As EventArgs) Handles PictureBox2i6.Click
If MaOC(5, 9) <> 1 And MaOC(5, 9) <> 100 Then
MaOC(5, 9) = 100
PictureBox2i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i7_Click(sender As Object, e As EventArgs) Handles PictureBox2i7.Click
If MaOC(5, 10) <> 1 And MaOC(5, 10) <> 100 Then
MaOC(5, 10) = 100
PictureBox2i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i8_Click(sender As Object, e As EventArgs) Handles PictureBox2i8.Click
If MaOC(5, 11) <> 1 And MaOC(5, 11) <> 100 Then
MaOC(5, 11) = 100
PictureBox2i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i9_Click(sender As Object, e As EventArgs) Handles PictureBox2i9.Click
If MaOC(5, 12) <> 1 And MaOC(5, 12) <> 100 Then
MaOC(5, 12) = 100
PictureBox2i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i10_Click(sender As Object, e As EventArgs) Handles PictureBox2i10.Click
If MaOC(5, 13) <> 1 And MaOC(5, 13) <> 100 Then
MaOC(5, 13) = 100
PictureBox2i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i11_Click(sender As Object, e As EventArgs) Handles PictureBox2i11.Click
If MaOC(5, 14) <> 1 And MaOC(5, 14) <> 100 Then
MaOC(5, 14) = 100
PictureBox2i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i12_Click(sender As Object, e As EventArgs) Handles PictureBox2i12.Click
If MaOC(5, 15) <> 1 And MaOC(5, 15) <> 100 Then
MaOC(5, 15) = 100
PictureBox2i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i13_Click(sender As Object, e As EventArgs) Handles PictureBox2i13.Click
If MaOC(5, 16) <> 1 And MaOC(5, 16) <> 100 Then
MaOC(5, 16) = 100
PictureBox2i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i14_Click(sender As Object, e As EventArgs) Handles PictureBox2i14.Click
If MaOC(5, 17) <> 1 And MaOC(5, 17) <> 100 Then
MaOC(5, 17) = 100
PictureBox2i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox2i15_Click(sender As Object, e As EventArgs) Handles PictureBox2i15.Click
If MaOC(5, 18) <> 1 And MaOC(5, 18) <> 100 Then
MaOC(5, 18) = 100
PictureBox2i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i1_Click(sender As Object, e As EventArgs) Handles PictureBox3i1.Click
If MaOC(6, 4) <> 1 And MaOC(6, 4) <> 100 Then
MaOC(6, 4) = 100
PictureBox3i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i2_Click(sender As Object, e As EventArgs) Handles PictureBox3i2.Click
If MaOC(6, 5) <> 1 And MaOC(6, 5) <> 100 Then
MaOC(6, 5) = 100
PictureBox3i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i3_Click(sender As Object, e As EventArgs) Handles PictureBox3i3.Click
If MaOC(6, 6) <> 1 And MaOC(6, 6) <> 100 Then
MaOC(6, 6) = 100
PictureBox3i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i4_Click(sender As Object, e As EventArgs) Handles PictureBox3i4.Click
If MaOC(6, 7) <> 1 And MaOC(6, 7) <> 100 Then
MaOC(6, 7) = 100
PictureBox3i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i5_Click(sender As Object, e As EventArgs) Handles PictureBox3i5.Click
If MaOC(6, 8) <> 1 And MaOC(6, 8) <> 100 Then
MaOC(6, 8) = 100
PictureBox3i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i6_Click(sender As Object, e As EventArgs) Handles PictureBox3i6.Click
If MaOC(6, 9) <> 1 And MaOC(6, 9) <> 100 Then
MaOC(6, 9) = 100
PictureBox3i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i7_Click(sender As Object, e As EventArgs) Handles PictureBox3i7.Click
If MaOC(6, 10) <> 1 And MaOC(6, 10) <> 100 Then
MaOC(6, 10) = 100
PictureBox3i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i8_Click(sender As Object, e As EventArgs) Handles PictureBox3i8.Click
If MaOC(6, 11) <> 1 And MaOC(6, 11) <> 100 Then
MaOC(6, 11) = 100
PictureBox3i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i9_Click(sender As Object, e As EventArgs) Handles PictureBox3i9.Click
If MaOC(6, 12) <> 1 And MaOC(6, 12) <> 100 Then
MaOC(6, 12) = 100
PictureBox3i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i10_Click(sender As Object, e As EventArgs) Handles PictureBox3i10.Click
If MaOC(6, 13) <> 1 And MaOC(6, 13) <> 100 Then
MaOC(6, 13) = 100
PictureBox3i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i11_Click(sender As Object, e As EventArgs) Handles PictureBox3i11.Click
If MaOC(6, 14) <> 1 And MaOC(6, 14) <> 100 Then
MaOC(6, 14) = 100
PictureBox3i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i12_Click(sender As Object, e As EventArgs) Handles PictureBox3i12.Click
If MaOC(6, 15) <> 1 And MaOC(6, 15) <> 100 Then
MaOC(6, 15) = 100
PictureBox3i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i13_Click(sender As Object, e As EventArgs) Handles PictureBox3i13.Click
If MaOC(6, 16) <> 1 And MaOC(6, 16) <> 100 Then
MaOC(6, 16) = 100
PictureBox3i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i14_Click(sender As Object, e As EventArgs) Handles PictureBox3i14.Click
If MaOC(6, 17) <> 1 And MaOC(6, 17) <> 100 Then
MaOC(6, 17) = 100
PictureBox3i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox3i15_Click(sender As Object, e As EventArgs) Handles PictureBox3i15.Click
If MaOC(6, 18) <> 1 And MaOC(6, 18) <> 100 Then
MaOC(6, 18) = 100
PictureBox3i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i1_Click(sender As Object, e As EventArgs) Handles PictureBox4i1.Click
If MaOC(7, 4) <> 1 And MaOC(7, 4) <> 100 Then
MaOC(7, 4) = 100
PictureBox4i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i2_Click(sender As Object, e As EventArgs) Handles PictureBox4i2.Click
If MaOC(7, 5) <> 1 And MaOC(7, 5) <> 100 Then
MaOC(7, 5) = 100
PictureBox4i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i3_Click(sender As Object, e As EventArgs) Handles PictureBox4i3.Click
If MaOC(7, 6) <> 1 And MaOC(7, 6) <> 100 Then
MaOC(7, 6) = 100
PictureBox4i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i4_Click(sender As Object, e As EventArgs) Handles PictureBox4i4.Click
If MaOC(7, 7) <> 1 And MaOC(7, 7) <> 100 Then
MaOC(7, 7) = 100
PictureBox4i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i5_Click(sender As Object, e As EventArgs) Handles PictureBox4i5.Click
If MaOC(7, 8) <> 1 And MaOC(7, 8) <> 100 Then
MaOC(7, 8) = 100
PictureBox4i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i6_Click(sender As Object, e As EventArgs) Handles PictureBox4i6.Click
If MaOC(7, 9) <> 1 And MaOC(7, 9) <> 100 Then
MaOC(7, 9) = 100
PictureBox4i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i7_Click(sender As Object, e As EventArgs) Handles PictureBox4i7.Click
If MaOC(7, 10) <> 1 And MaOC(7, 10) <> 100 Then
MaOC(7, 10) = 100
PictureBox4i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i8_Click(sender As Object, e As EventArgs) Handles PictureBox4i8.Click
If MaOC(7, 11) <> 1 And MaOC(7, 11) <> 100 Then
MaOC(7, 11) = 100
PictureBox4i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i9_Click(sender As Object, e As EventArgs) Handles PictureBox4i9.Click
If MaOC(7, 12) <> 1 And MaOC(7, 12) <> 100 Then
MaOC(7, 12) = 100
PictureBox4i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i10_Click(sender As Object, e As EventArgs) Handles PictureBox4i10.Click
If MaOC(7, 13) <> 1 And MaOC(7, 13) <> 100 Then
MaOC(7, 13) = 100
PictureBox4i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i11_Click(sender As Object, e As EventArgs) Handles PictureBox4i11.Click
If MaOC(7, 14) <> 1 And MaOC(7, 14) <> 100 Then
MaOC(7, 14) = 100
PictureBox4i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i12_Click(sender As Object, e As EventArgs) Handles PictureBox4i12.Click
If MaOC(7, 15) <> 1 And MaOC(7, 15) <> 100 Then
MaOC(7, 15) = 100
PictureBox4i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i13_Click(sender As Object, e As EventArgs) Handles PictureBox4i13.Click
If MaOC(7, 16) <> 1 And MaOC(7, 16) <> 100 Then
MaOC(7, 16) = 100
PictureBox4i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i14_Click(sender As Object, e As EventArgs) Handles PictureBox4i14.Click
If MaOC(7, 17) <> 1 And MaOC(7, 17) <> 100 Then
MaOC(7, 17) = 100
PictureBox4i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox4i15_Click(sender As Object, e As EventArgs) Handles PictureBox4i15.Click
If MaOC(7, 18) <> 1 And MaOC(7, 18) <> 100 Then
MaOC(7, 18) = 100
PictureBox4i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i1_Click(sender As Object, e As EventArgs) Handles PictureBox5i1.Click
If MaOC(8, 4) <> 1 And MaOC(8, 4) <> 100 Then
MaOC(8, 4) = 100
PictureBox5i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i2_Click(sender As Object, e As EventArgs) Handles PictureBox5i2.Click
If MaOC(8, 5) <> 1 And MaOC(8, 5) <> 100 Then
MaOC(8, 5) = 100
PictureBox5i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i3_Click(sender As Object, e As EventArgs) Handles PictureBox5i3.Click
If MaOC(8, 6) <> 1 And MaOC(8, 6) <> 100 Then
MaOC(8, 6) = 100
PictureBox5i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i4_Click(sender As Object, e As EventArgs) Handles PictureBox5i4.Click
If MaOC(8, 7) <> 1 And MaOC(8, 7) <> 100 Then
MaOC(8, 7) = 100
PictureBox5i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i5_Click(sender As Object, e As EventArgs) Handles PictureBox5i5.Click
If MaOC(8, 8) <> 1 And MaOC(8, 8) <> 100 Then
MaOC(8, 8) = 100
PictureBox5i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i6_Click(sender As Object, e As EventArgs) Handles PictureBox5i6.Click
If MaOC(8, 9) <> 1 And MaOC(8, 9) <> 100 Then
MaOC(8, 9) = 100
PictureBox5i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i7_Click(sender As Object, e As EventArgs) Handles PictureBox5i7.Click
If MaOC(8, 10) <> 1 And MaOC(8, 10) <> 100 Then
MaOC(8, 10) = 100
PictureBox5i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i8_Click(sender As Object, e As EventArgs) Handles PictureBox5i8.Click
If MaOC(8, 11) <> 1 And MaOC(8, 11) <> 100 Then
MaOC(8, 11) = 100
PictureBox5i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i9_Click(sender As Object, e As EventArgs) Handles PictureBox5i9.Click
If MaOC(8, 12) <> 1 And MaOC(8, 12) <> 100 Then
MaOC(8, 12) = 100
PictureBox5i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i10_Click(sender As Object, e As EventArgs) Handles PictureBox5i10.Click
If MaOC(8, 13) <> 1 And MaOC(8, 13) <> 100 Then
MaOC(8, 13) = 100
PictureBox5i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i11_Click(sender As Object, e As EventArgs) Handles PictureBox5i11.Click
If MaOC(8, 14) <> 1 And MaOC(8, 14) <> 100 Then
MaOC(8, 14) = 100
PictureBox5i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i12_Click(sender As Object, e As EventArgs) Handles PictureBox5i12.Click
If MaOC(8, 15) <> 1 And MaOC(8, 15) <> 100 Then
MaOC(8, 15) = 100
PictureBox5i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i13_Click(sender As Object, e As EventArgs) Handles PictureBox5i13.Click
If MaOC(8, 16) <> 1 And MaOC(8, 16) <> 100 Then
MaOC(8, 16) = 100
PictureBox5i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i14_Click(sender As Object, e As EventArgs) Handles PictureBox5i14.Click
If MaOC(8, 17) <> 1 And MaOC(8, 17) <> 100 Then
MaOC(8, 17) = 100
PictureBox5i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox5i15_Click(sender As Object, e As EventArgs) Handles PictureBox5i15.Click
If MaOC(8, 18) <> 1 And MaOC(8, 18) <> 100 Then
MaOC(8, 18) = 100
PictureBox5i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i1_Click(sender As Object, e As EventArgs) Handles PictureBox6i1.Click
If MaOC(9, 4) <> 1 And MaOC(9, 4) <> 100 Then
MaOC(9, 4) = 100
PictureBox6i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i2_Click(sender As Object, e As EventArgs) Handles PictureBox6i2.Click
If MaOC(9, 5) <> 1 And MaOC(9, 5) <> 100 Then
MaOC(9, 5) = 100
PictureBox6i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i3_Click(sender As Object, e As EventArgs) Handles PictureBox6i3.Click
If MaOC(9, 6) <> 1 And MaOC(9, 6) <> 100 Then
MaOC(9, 6) = 100
PictureBox6i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i4_Click(sender As Object, e As EventArgs) Handles PictureBox6i4.Click
If MaOC(9, 7) <> 1 And MaOC(9, 7) <> 100 Then
MaOC(9, 7) = 100
PictureBox6i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i5_Click(sender As Object, e As EventArgs) Handles PictureBox6i5.Click
If MaOC(9, 8) <> 1 And MaOC(9, 8) <> 100 Then
MaOC(9, 8) = 100
PictureBox6i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i6_Click(sender As Object, e As EventArgs) Handles PictureBox6i6.Click
If MaOC(9, 9) <> 1 And MaOC(9, 9) <> 100 Then
MaOC(9, 9) = 100
PictureBox6i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i7_Click(sender As Object, e As EventArgs) Handles PictureBox6i7.Click
If MaOC(9, 10) <> 1 And MaOC(9, 10) <> 100 Then
MaOC(9, 10) = 100
PictureBox6i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i8_Click(sender As Object, e As EventArgs) Handles PictureBox6i8.Click
If MaOC(9, 11) <> 1 And MaOC(9, 11) <> 100 Then
MaOC(9, 11) = 100
PictureBox6i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i9_Click(sender As Object, e As EventArgs) Handles PictureBox6i9.Click
If MaOC(9, 12) <> 1 And MaOC(9, 12) <> 100 Then
MaOC(9, 12) = 100
PictureBox6i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i10_Click(sender As Object, e As EventArgs) Handles PictureBox6i10.Click
If MaOC(9, 13) <> 1 And MaOC(9, 13) <> 100 Then
MaOC(9, 13) = 100
PictureBox6i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i11_Click(sender As Object, e As EventArgs) Handles PictureBox6i11.Click
If MaOC(9, 14) <> 1 And MaOC(9, 14) <> 100 Then
MaOC(9, 14) = 100
PictureBox6i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i12_Click(sender As Object, e As EventArgs) Handles PictureBox6i12.Click
If MaOC(9, 15) <> 1 And MaOC(9, 15) <> 100 Then
MaOC(9, 15) = 100
PictureBox6i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i13_Click(sender As Object, e As EventArgs) Handles PictureBox6i13.Click
If MaOC(9, 16) <> 1 And MaOC(9, 16) <> 100 Then
MaOC(9, 16) = 100
PictureBox6i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i14_Click(sender As Object, e As EventArgs) Handles PictureBox6i14.Click
If MaOC(9, 17) <> 1 And MaOC(9, 17) <> 100 Then
MaOC(9, 17) = 100
PictureBox6i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox6i15_Click(sender As Object, e As EventArgs) Handles PictureBox6i15.Click
If MaOC(9, 18) <> 1 And MaOC(9, 18) <> 100 Then
MaOC(9, 18) = 100
PictureBox6i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i1_Click(sender As Object, e As EventArgs) Handles PictureBox7i1.Click
If MaOC(10, 4) <> 1 And MaOC(10, 4) <> 100 Then
MaOC(10, 4) = 100
PictureBox7i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i2_Click(sender As Object, e As EventArgs) Handles PictureBox7i2.Click
If MaOC(10, 5) <> 1 And MaOC(10, 5) <> 100 Then
MaOC(10, 5) = 100
PictureBox7i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i3_Click(sender As Object, e As EventArgs) Handles PictureBox7i3.Click
If MaOC(10, 6) <> 1 And MaOC(10, 6) <> 100 Then
MaOC(10, 6) = 100
PictureBox7i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i4_Click(sender As Object, e As EventArgs) Handles PictureBox7i4.Click
If MaOC(10, 7) <> 1 And MaOC(10, 7) <> 100 Then
MaOC(10, 7) = 100
PictureBox7i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i5_Click(sender As Object, e As EventArgs) Handles PictureBox7i5.Click
If MaOC(10, 8) <> 1 And MaOC(10, 8) <> 100 Then
MaOC(10, 8) = 100
PictureBox7i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i6_Click(sender As Object, e As EventArgs) Handles PictureBox7i6.Click
If MaOC(10, 9) <> 1 And MaOC(10, 9) <> 100 Then
MaOC(10, 9) = 100
PictureBox7i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i7_Click(sender As Object, e As EventArgs) Handles PictureBox7i7.Click
If MaOC(10, 10) <> 1 And MaOC(10, 10) <> 100 Then
MaOC(10, 10) = 100
PictureBox7i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i8_Click(sender As Object, e As EventArgs) Handles PictureBox7i8.Click
If MaOC(10, 11) <> 1 And MaOC(10, 11) <> 100 Then
MaOC(10, 11) = 100
PictureBox7i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i9_Click(sender As Object, e As EventArgs) Handles PictureBox7i9.Click
If MaOC(10, 12) <> 1 And MaOC(10, 12) <> 100 Then
MaOC(10, 12) = 100
PictureBox7i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i10_Click(sender As Object, e As EventArgs) Handles PictureBox7i10.Click
If MaOC(10, 13) <> 1 And MaOC(10, 13) <> 100 Then
MaOC(10, 13) = 100
PictureBox7i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i11_Click(sender As Object, e As EventArgs) Handles PictureBox7i11.Click
If MaOC(10, 14) <> 1 And MaOC(10, 14) <> 100 Then
MaOC(10, 14) = 100
PictureBox7i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i12_Click(sender As Object, e As EventArgs) Handles PictureBox7i12.Click
If MaOC(10, 15) <> 1 And MaOC(10, 15) <> 100 Then
MaOC(10, 15) = 100
PictureBox7i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i13_Click(sender As Object, e As EventArgs) Handles PictureBox7i13.Click
If MaOC(10, 16) <> 1 And MaOC(10, 16) <> 100 Then
MaOC(10, 16) = 100
PictureBox7i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i14_Click(sender As Object, e As EventArgs) Handles PictureBox7i14.Click
If MaOC(10, 17) <> 1 And MaOC(10, 17) <> 100 Then
MaOC(10, 17) = 100
PictureBox7i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox7i15_Click(sender As Object, e As EventArgs) Handles PictureBox7i15.Click
If MaOC(10, 18) <> 1 And MaOC(10, 18) <> 100 Then
MaOC(10, 18) = 100
PictureBox7i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i1_Click(sender As Object, e As EventArgs) Handles PictureBox8i1.Click
If MaOC(11, 4) <> 1 And MaOC(11, 4) <> 100 Then
MaOC(11, 4) = 100
PictureBox8i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i2_Click(sender As Object, e As EventArgs) Handles PictureBox8i2.Click
If MaOC(11, 5) <> 1 And MaOC(11, 5) <> 100 Then
MaOC(11, 5) = 100
PictureBox8i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i3_Click(sender As Object, e As EventArgs) Handles PictureBox8i3.Click
If MaOC(11, 6) <> 1 And MaOC(11, 6) <> 100 Then
MaOC(11, 6) = 100
PictureBox8i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i4_Click(sender As Object, e As EventArgs) Handles PictureBox8i4.Click
If MaOC(11, 7) <> 1 And MaOC(11, 7) <> 100 Then
MaOC(11, 7) = 100
PictureBox8i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i5_Click(sender As Object, e As EventArgs) Handles PictureBox8i5.Click
If MaOC(11, 8) <> 1 And MaOC(11, 8) <> 100 Then
MaOC(11, 8) = 100
PictureBox8i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i6_Click(sender As Object, e As EventArgs) Handles PictureBox8i6.Click
If MaOC(11, 9) <> 1 And MaOC(11, 9) <> 100 Then
MaOC(11, 9) = 100
PictureBox8i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i7_Click(sender As Object, e As EventArgs) Handles PictureBox8i7.Click
If MaOC(11, 10) <> 1 And MaOC(11, 10) <> 100 Then
MaOC(11, 10) = 100
PictureBox8i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i8_Click(sender As Object, e As EventArgs) Handles PictureBox8i8.Click
If MaOC(11, 11) <> 1 And MaOC(11, 11) <> 100 Then
MaOC(11, 11) = 100
PictureBox8i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i9_Click(sender As Object, e As EventArgs) Handles PictureBox8i9.Click
If MaOC(11, 12) <> 1 And MaOC(11, 12) <> 100 Then
MaOC(11, 12) = 100
PictureBox8i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i10_Click(sender As Object, e As EventArgs) Handles PictureBox8i10.Click
If MaOC(11, 13) <> 1 And MaOC(11, 13) <> 100 Then
MaOC(11, 13) = 100
PictureBox8i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i11_Click(sender As Object, e As EventArgs) Handles PictureBox8i11.Click
If MaOC(11, 14) <> 1 And MaOC(11, 14) <> 100 Then
MaOC(11, 14) = 100
PictureBox8i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i12_Click(sender As Object, e As EventArgs) Handles PictureBox8i12.Click
If MaOC(11, 15) <> 1 And MaOC(11, 15) <> 100 Then
MaOC(11, 15) = 100
PictureBox8i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i13_Click(sender As Object, e As EventArgs) Handles PictureBox8i13.Click
If MaOC(11, 16) <> 1 And MaOC(11, 16) <> 100 Then
MaOC(11, 16) = 100
PictureBox8i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i14_Click(sender As Object, e As EventArgs) Handles PictureBox8i14.Click
If MaOC(11, 17) <> 1 And MaOC(11, 17) <> 100 Then
MaOC(11, 17) = 100
PictureBox8i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox8i15_Click(sender As Object, e As EventArgs) Handles PictureBox8i15.Click
If MaOC(11, 18) <> 1 And MaOC(11, 18) <> 100 Then
MaOC(11, 18) = 100
PictureBox8i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i1_Click(sender As Object, e As EventArgs) Handles PictureBox9i1.Click
If MaOC(12, 4) <> 1 And MaOC(12, 4) <> 100 Then
MaOC(12, 4) = 100
PictureBox9i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i2_Click(sender As Object, e As EventArgs) Handles PictureBox9i2.Click
If MaOC(12, 5) <> 1 And MaOC(12, 5) <> 100 Then
MaOC(12, 5) = 100
PictureBox9i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i3_Click(sender As Object, e As EventArgs) Handles PictureBox9i3.Click
If MaOC(12, 6) <> 1 And MaOC(12, 6) <> 100 Then
MaOC(12, 6) = 100
PictureBox9i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i4_Click(sender As Object, e As EventArgs) Handles PictureBox9i4.Click
If MaOC(12, 7) <> 1 And MaOC(12, 7) <> 100 Then
MaOC(12, 7) = 100
PictureBox9i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i5_Click(sender As Object, e As EventArgs) Handles PictureBox9i5.Click
If MaOC(12, 8) <> 1 And MaOC(12, 8) <> 100 Then
MaOC(12, 8) = 100
PictureBox9i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i6_Click(sender As Object, e As EventArgs) Handles PictureBox9i6.Click
If MaOC(12, 9) <> 1 And MaOC(12, 9) <> 100 Then
MaOC(12, 9) = 100
PictureBox9i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i7_Click(sender As Object, e As EventArgs) Handles PictureBox9i7.Click
If MaOC(12, 10) <> 1 And MaOC(12, 10) <> 100 Then
MaOC(12, 10) = 100
PictureBox9i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i8_Click(sender As Object, e As EventArgs) Handles PictureBox9i8.Click
If MaOC(12, 11) <> 1 And MaOC(12, 11) <> 100 Then
MaOC(12, 11) = 100
PictureBox9i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i9_Click(sender As Object, e As EventArgs) Handles PictureBox9i9.Click
If MaOC(12, 12) <> 1 And MaOC(12, 12) <> 100 Then
MaOC(12, 12) = 100
PictureBox9i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i10_Click(sender As Object, e As EventArgs) Handles PictureBox9i10.Click
If MaOC(12, 13) <> 1 And MaOC(12, 13) <> 100 Then
MaOC(12, 13) = 100
PictureBox9i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i11_Click(sender As Object, e As EventArgs) Handles PictureBox9i11.Click
If MaOC(12, 14) <> 1 And MaOC(12, 14) <> 100 Then
MaOC(12, 14) = 100
PictureBox9i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i12_Click(sender As Object, e As EventArgs) Handles PictureBox9i12.Click
If MaOC(12, 15) <> 1 And MaOC(12, 15) <> 100 Then
MaOC(12, 15) = 100
PictureBox9i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i13_Click(sender As Object, e As EventArgs) Handles PictureBox9i13.Click
If MaOC(12, 16) <> 1 And MaOC(12, 16) <> 100 Then
MaOC(12, 16) = 100
PictureBox9i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i14_Click(sender As Object, e As EventArgs) Handles PictureBox9i14.Click
If MaOC(12, 17) <> 1 And MaOC(12, 17) <> 100 Then
MaOC(12, 17) = 100
PictureBox9i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox9i15_Click(sender As Object, e As EventArgs) Handles PictureBox9i15.Click
If MaOC(12, 18) <> 1 And MaOC(12, 18) <> 100 Then
MaOC(12, 18) = 100
PictureBox9i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i1_Click(sender As Object, e As EventArgs) Handles PictureBox10i1.Click
If MaOC(13, 4) <> 1 And MaOC(13, 4) <> 100 Then
MaOC(13, 4) = 100
PictureBox10i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i2_Click(sender As Object, e As EventArgs) Handles PictureBox10i2.Click
If MaOC(13, 5) <> 1 And MaOC(13, 5) <> 100 Then
MaOC(13, 5) = 100
PictureBox10i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i3_Click(sender As Object, e As EventArgs) Handles PictureBox10i3.Click
If MaOC(13, 6) <> 1 And MaOC(13, 6) <> 100 Then
MaOC(13, 6) = 100
PictureBox10i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i4_Click(sender As Object, e As EventArgs) Handles PictureBox10i4.Click
If MaOC(13, 7) <> 1 And MaOC(13, 7) <> 100 Then
MaOC(13, 7) = 100
PictureBox10i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i5_Click(sender As Object, e As EventArgs) Handles PictureBox10i5.Click
If MaOC(13, 8) <> 1 And MaOC(13, 8) <> 100 Then
MaOC(13, 8) = 100
PictureBox10i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i6_Click(sender As Object, e As EventArgs) Handles PictureBox10i6.Click
If MaOC(13, 9) <> 1 And MaOC(13, 9) <> 100 Then
MaOC(13, 9) = 100
PictureBox10i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i7_Click(sender As Object, e As EventArgs) Handles PictureBox10i7.Click
If MaOC(13, 10) <> 1 And MaOC(13, 10) <> 100 Then
MaOC(13, 10) = 100
PictureBox10i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i8_Click(sender As Object, e As EventArgs) Handles PictureBox10i8.Click
If MaOC(13, 11) <> 1 And MaOC(13, 11) <> 100 Then
MaOC(13, 11) = 100
PictureBox10i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i9_Click(sender As Object, e As EventArgs) Handles PictureBox10i9.Click
If MaOC(13, 12) <> 1 And MaOC(13, 12) <> 100 Then
MaOC(13, 12) = 100
PictureBox10i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i10_Click(sender As Object, e As EventArgs) Handles PictureBox10i10.Click
If MaOC(13, 13) <> 1 And MaOC(13, 13) <> 100 Then
MaOC(13, 13) = 100
PictureBox10i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i11_Click(sender As Object, e As EventArgs) Handles PictureBox10i11.Click
If MaOC(13, 14) <> 1 And MaOC(13, 14) <> 100 Then
MaOC(13, 14) = 100
PictureBox10i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i12_Click(sender As Object, e As EventArgs) Handles PictureBox10i12.Click
If MaOC(13, 15) <> 1 And MaOC(13, 15) <> 100 Then
MaOC(13, 15) = 100
PictureBox10i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i13_Click(sender As Object, e As EventArgs) Handles PictureBox10i13.Click
If MaOC(13, 16) <> 1 And MaOC(13, 16) <> 100 Then
MaOC(13, 16) = 100
PictureBox10i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i14_Click(sender As Object, e As EventArgs) Handles PictureBox10i14.Click
If MaOC(13, 17) <> 1 And MaOC(13, 17) <> 100 Then
MaOC(13, 17) = 100
PictureBox10i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox10i15_Click(sender As Object, e As EventArgs) Handles PictureBox10i15.Click
If MaOC(13, 18) <> 1 And MaOC(13, 18) <> 100 Then
MaOC(13, 18) = 100
PictureBox10i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i1_Click(sender As Object, e As EventArgs) Handles PictureBox11i1.Click
If MaOC(14, 4) <> 1 And MaOC(14, 4) <> 100 Then
MaOC(14, 4) = 100
PictureBox11i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i2_Click(sender As Object, e As EventArgs) Handles PictureBox11i2.Click
If MaOC(14, 5) <> 1 And MaOC(14, 5) <> 100 Then
MaOC(14, 5) = 100
PictureBox11i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i3_Click(sender As Object, e As EventArgs) Handles PictureBox11i3.Click
If MaOC(14, 6) <> 1 And MaOC(14, 6) <> 100 Then
MaOC(14, 6) = 100
PictureBox11i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i4_Click(sender As Object, e As EventArgs) Handles PictureBox11i4.Click
If MaOC(14, 7) <> 1 And MaOC(14, 7) <> 100 Then
MaOC(14, 7) = 100
PictureBox11i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i5_Click(sender As Object, e As EventArgs) Handles PictureBox11i5.Click
If MaOC(14, 8) <> 1 And MaOC(14, 8) <> 100 Then
MaOC(14, 8) = 100
PictureBox11i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i6_Click(sender As Object, e As EventArgs) Handles PictureBox11i6.Click
If MaOC(14, 9) <> 1 And MaOC(14, 9) <> 100 Then
MaOC(14, 9) = 100
PictureBox11i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i7_Click(sender As Object, e As EventArgs) Handles PictureBox11i7.Click
If MaOC(14, 10) <> 1 And MaOC(14, 10) <> 100 Then
MaOC(14, 10) = 100
PictureBox11i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i8_Click(sender As Object, e As EventArgs) Handles PictureBox11i8.Click
If MaOC(14, 11) <> 1 And MaOC(14, 11) <> 100 Then
MaOC(14, 11) = 100
PictureBox11i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i9_Click(sender As Object, e As EventArgs) Handles PictureBox11i9.Click
If MaOC(14, 12) <> 1 And MaOC(14, 12) <> 100 Then
MaOC(14, 12) = 100
PictureBox11i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i10_Click(sender As Object, e As EventArgs) Handles PictureBox11i10.Click
If MaOC(14, 13) <> 1 And MaOC(14, 13) <> 100 Then
MaOC(14, 13) = 100
PictureBox11i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i11_Click(sender As Object, e As EventArgs) Handles PictureBox11i11.Click
If MaOC(14, 14) <> 1 And MaOC(14, 14) <> 100 Then
MaOC(14, 14) = 100
PictureBox11i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i12_Click(sender As Object, e As EventArgs) Handles PictureBox11i12.Click
If MaOC(14, 15) <> 1 And MaOC(14, 15) <> 100 Then
MaOC(14, 15) = 100
PictureBox11i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i13_Click(sender As Object, e As EventArgs) Handles PictureBox11i13.Click
If MaOC(14, 16) <> 1 And MaOC(14, 16) <> 100 Then
MaOC(14, 16) = 100
PictureBox11i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i14_Click(sender As Object, e As EventArgs) Handles PictureBox11i14.Click
If MaOC(14, 17) <> 1 And MaOC(14, 17) <> 100 Then
MaOC(14, 17) = 100
PictureBox11i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox11i15_Click(sender As Object, e As EventArgs) Handles PictureBox11i15.Click
If MaOC(14, 18) <> 1 And MaOC(14, 18) <> 100 Then
MaOC(14, 18) = 100
PictureBox11i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i1_Click(sender As Object, e As EventArgs) Handles PictureBox12i1.Click
If MaOC(15, 4) <> 1 And MaOC(15, 4) <> 100 Then
MaOC(15, 4) = 100
PictureBox12i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i2_Click(sender As Object, e As EventArgs) Handles PictureBox12i2.Click
If MaOC(15, 5) <> 1 And MaOC(15, 5) <> 100 Then
MaOC(15, 5) = 100
PictureBox12i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i3_Click(sender As Object, e As EventArgs) Handles PictureBox12i3.Click
If MaOC(15, 6) <> 1 And MaOC(15, 6) <> 100 Then
MaOC(15, 6) = 100
PictureBox12i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i4_Click(sender As Object, e As EventArgs) Handles PictureBox12i4.Click
If MaOC(15, 7) <> 1 And MaOC(15, 7) <> 100 Then
MaOC(15, 7) = 100
PictureBox12i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i5_Click(sender As Object, e As EventArgs) Handles PictureBox12i5.Click
If MaOC(15, 8) <> 1 And MaOC(15, 8) <> 100 Then
MaOC(15, 8) = 100
PictureBox12i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i6_Click(sender As Object, e As EventArgs) Handles PictureBox12i6.Click
If MaOC(15, 9) <> 1 And MaOC(15, 9) <> 100 Then
MaOC(15, 9) = 100
PictureBox12i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i7_Click(sender As Object, e As EventArgs) Handles PictureBox12i7.Click
If MaOC(15, 10) <> 1 And MaOC(15, 10) <> 100 Then
MaOC(15, 10) = 100
PictureBox12i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i8_Click(sender As Object, e As EventArgs) Handles PictureBox12i8.Click
If MaOC(15, 11) <> 1 And MaOC(15, 11) <> 100 Then
MaOC(15, 11) = 100
PictureBox12i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i9_Click(sender As Object, e As EventArgs) Handles PictureBox12i9.Click
If MaOC(15, 12) <> 1 And MaOC(15, 12) <> 100 Then
MaOC(15, 12) = 100
PictureBox12i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i10_Click(sender As Object, e As EventArgs) Handles PictureBox12i10.Click
If MaOC(15, 13) <> 1 And MaOC(15, 13) <> 100 Then
MaOC(15, 13) = 100
PictureBox12i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i11_Click(sender As Object, e As EventArgs) Handles PictureBox12i11.Click
If MaOC(15, 14) <> 1 And MaOC(15, 14) <> 100 Then
MaOC(15, 14) = 100
PictureBox12i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i12_Click(sender As Object, e As EventArgs) Handles PictureBox12i12.Click
If MaOC(15, 15) <> 1 And MaOC(15, 15) <> 100 Then
MaOC(15, 15) = 100
PictureBox12i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i13_Click(sender As Object, e As EventArgs) Handles PictureBox12i13.Click
If MaOC(15, 16) <> 1 And MaOC(15, 16) <> 100 Then
MaOC(15, 16) = 100
PictureBox12i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i14_Click(sender As Object, e As EventArgs) Handles PictureBox12i14.Click
If MaOC(15, 17) <> 1 And MaOC(15, 17) <> 100 Then
MaOC(15, 17) = 100
PictureBox12i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox12i15_Click(sender As Object, e As EventArgs) Handles PictureBox12i15.Click
If MaOC(15, 18) <> 1 And MaOC(15, 18) <> 100 Then
MaOC(15, 18) = 100
PictureBox12i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i1_Click(sender As Object, e As EventArgs) Handles PictureBox13i1.Click
If MaOC(16, 4) <> 1 And MaOC(16, 4) <> 100 Then
MaOC(16, 4) = 100
PictureBox13i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i2_Click(sender As Object, e As EventArgs) Handles PictureBox13i2.Click
If MaOC(16, 5) <> 1 And MaOC(16, 5) <> 100 Then
MaOC(16, 5) = 100
PictureBox13i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i3_Click(sender As Object, e As EventArgs) Handles PictureBox13i3.Click
If MaOC(16, 6) <> 1 And MaOC(16, 6) <> 100 Then
MaOC(16, 6) = 100
PictureBox13i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i4_Click(sender As Object, e As EventArgs) Handles PictureBox13i4.Click
If MaOC(16, 7) <> 1 And MaOC(16, 7) <> 100 Then
MaOC(16, 7) = 100
PictureBox13i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i5_Click(sender As Object, e As EventArgs) Handles PictureBox13i5.Click
If MaOC(16, 8) <> 1 And MaOC(16, 8) <> 100 Then
MaOC(16, 8) = 100
PictureBox13i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i6_Click(sender As Object, e As EventArgs) Handles PictureBox13i6.Click
If MaOC(16, 9) <> 1 And MaOC(16, 9) <> 100 Then
MaOC(16, 9) = 100
PictureBox13i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i7_Click(sender As Object, e As EventArgs) Handles PictureBox13i7.Click
If MaOC(16, 10) <> 1 And MaOC(16, 10) <> 100 Then
MaOC(16, 10) = 100
PictureBox13i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i8_Click(sender As Object, e As EventArgs) Handles PictureBox13i8.Click
If MaOC(16, 11) <> 1 And MaOC(16, 11) <> 100 Then
MaOC(16, 11) = 100
PictureBox13i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i9_Click(sender As Object, e As EventArgs) Handles PictureBox13i9.Click
If MaOC(16, 12) <> 1 And MaOC(16, 12) <> 100 Then
MaOC(16, 12) = 100
PictureBox13i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i10_Click(sender As Object, e As EventArgs) Handles PictureBox13i10.Click
If MaOC(16, 13) <> 1 And MaOC(16, 13) <> 100 Then
MaOC(16, 13) = 100
PictureBox13i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i11_Click(sender As Object, e As EventArgs) Handles PictureBox13i11.Click
If MaOC(16, 14) <> 1 And MaOC(16, 14) <> 100 Then
MaOC(16, 14) = 100
PictureBox13i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i12_Click(sender As Object, e As EventArgs) Handles PictureBox13i12.Click
If MaOC(16, 15) <> 1 And MaOC(16, 15) <> 100 Then
MaOC(16, 15) = 100
PictureBox13i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i13_Click(sender As Object, e As EventArgs) Handles PictureBox13i13.Click
If MaOC(16, 16) <> 1 And MaOC(16, 16) <> 100 Then
MaOC(16, 16) = 100
PictureBox13i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i14_Click(sender As Object, e As EventArgs) Handles PictureBox13i14.Click
If MaOC(16, 17) <> 1 And MaOC(16, 17) <> 100 Then
MaOC(16, 17) = 100
PictureBox13i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox13i15_Click(sender As Object, e As EventArgs) Handles PictureBox13i15.Click
If MaOC(16, 18) <> 1 And MaOC(16, 18) <> 100 Then
MaOC(16, 18) = 100
PictureBox13i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i1_Click(sender As Object, e As EventArgs) Handles PictureBox14i1.Click
If MaOC(17, 4) <> 1 And MaOC(17, 4) <> 100 Then
MaOC(17, 4) = 100
PictureBox14i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i2_Click(sender As Object, e As EventArgs) Handles PictureBox14i2.Click
If MaOC(17, 5) <> 1 And MaOC(17, 5) <> 100 Then
MaOC(17, 5) = 100
PictureBox14i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i3_Click(sender As Object, e As EventArgs) Handles PictureBox14i3.Click
If MaOC(17, 6) <> 1 And MaOC(17, 6) <> 100 Then
MaOC(17, 6) = 100
PictureBox14i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i4_Click(sender As Object, e As EventArgs) Handles PictureBox14i4.Click
If MaOC(17, 7) <> 1 And MaOC(17, 7) <> 100 Then
MaOC(17, 7) = 100
PictureBox14i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i5_Click(sender As Object, e As EventArgs) Handles PictureBox14i5.Click
If MaOC(17, 8) <> 1 And MaOC(17, 8) <> 100 Then
MaOC(17, 8) = 100
PictureBox14i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i6_Click(sender As Object, e As EventArgs) Handles PictureBox14i6.Click
If MaOC(17, 9) <> 1 And MaOC(17, 9) <> 100 Then
MaOC(17, 9) = 100
PictureBox14i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i7_Click(sender As Object, e As EventArgs) Handles PictureBox14i7.Click
If MaOC(17, 10) <> 1 And MaOC(17, 10) <> 100 Then
MaOC(17, 10) = 100
PictureBox14i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i8_Click(sender As Object, e As EventArgs) Handles PictureBox14i8.Click
If MaOC(17, 11) <> 1 And MaOC(17, 11) <> 100 Then
MaOC(17, 11) = 100
PictureBox14i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i9_Click(sender As Object, e As EventArgs) Handles PictureBox14i9.Click
If MaOC(17, 12) <> 1 And MaOC(17, 12) <> 100 Then
MaOC(17, 12) = 100
PictureBox14i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i10_Click(sender As Object, e As EventArgs) Handles PictureBox14i10.Click
If MaOC(17, 13) <> 1 And MaOC(17, 13) <> 100 Then
MaOC(17, 13) = 100
PictureBox14i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i11_Click(sender As Object, e As EventArgs) Handles PictureBox14i11.Click
If MaOC(17, 14) <> 1 And MaOC(17, 14) <> 100 Then
MaOC(17, 14) = 100
PictureBox14i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i12_Click(sender As Object, e As EventArgs) Handles PictureBox14i12.Click
If MaOC(17, 15) <> 1 And MaOC(17, 15) <> 100 Then
MaOC(17, 15) = 100
PictureBox14i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i13_Click(sender As Object, e As EventArgs) Handles PictureBox14i13.Click
If MaOC(17, 16) <> 1 And MaOC(17, 16) <> 100 Then
MaOC(17, 16) = 100
PictureBox14i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i14_Click(sender As Object, e As EventArgs) Handles PictureBox14i14.Click
If MaOC(17, 17) <> 1 And MaOC(17, 17) <> 100 Then
MaOC(17, 17) = 100
PictureBox14i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox14i15_Click(sender As Object, e As EventArgs) Handles PictureBox14i15.Click
If MaOC(17, 18) <> 1 And MaOC(17, 18) <> 100 Then
MaOC(17, 18) = 100
PictureBox14i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i1_Click(sender As Object, e As EventArgs) Handles PictureBox15i1.Click
If MaOC(18, 4) <> 1 And MaOC(18, 4) <> 100 Then
MaOC(18, 4) = 100
PictureBox15i1.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i2_Click(sender As Object, e As EventArgs) Handles PictureBox15i2.Click
If MaOC(18, 5) <> 1 And MaOC(18, 5) <> 100 Then
MaOC(18, 5) = 100
PictureBox15i2.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i3_Click(sender As Object, e As EventArgs) Handles PictureBox15i3.Click
If MaOC(18, 6) <> 1 And MaOC(18, 6) <> 100 Then
MaOC(18, 6) = 100
PictureBox15i3.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i4_Click(sender As Object, e As EventArgs) Handles PictureBox15i4.Click
If MaOC(18, 7) <> 1 And MaOC(18, 7) <> 100 Then
MaOC(18, 7) = 100
PictureBox15i4.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i5_Click(sender As Object, e As EventArgs) Handles PictureBox15i5.Click
If MaOC(18, 8) <> 1 And MaOC(18, 8) <> 100 Then
MaOC(18, 8) = 100
PictureBox15i5.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i6_Click(sender As Object, e As EventArgs) Handles PictureBox15i6.Click
If MaOC(18, 9) <> 1 And MaOC(18, 9) <> 100 Then
MaOC(18, 9) = 100
PictureBox15i6.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i7_Click(sender As Object, e As EventArgs) Handles PictureBox15i7.Click
If MaOC(18, 10) <> 1 And MaOC(18, 10) <> 100 Then
MaOC(18, 10) = 100
PictureBox15i7.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i8_Click(sender As Object, e As EventArgs) Handles PictureBox15i8.Click
If MaOC(18, 11) <> 1 And MaOC(18, 11) <> 100 Then
MaOC(18, 11) = 100
PictureBox15i8.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i9_Click(sender As Object, e As EventArgs) Handles PictureBox15i9.Click
If MaOC(18, 12) <> 1 And MaOC(18, 12) <> 100 Then
MaOC(18, 12) = 100
PictureBox15i9.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i10_Click(sender As Object, e As EventArgs) Handles PictureBox15i10.Click
If MaOC(18, 13) <> 1 And MaOC(18, 13) <> 100 Then
MaOC(18, 13) = 100
PictureBox15i10.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i11_Click(sender As Object, e As EventArgs) Handles PictureBox15i11.Click
If MaOC(18, 14) <> 1 And MaOC(18, 14) <> 100 Then
MaOC(18, 14) = 100
PictureBox15i11.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i12_Click(sender As Object, e As EventArgs) Handles PictureBox15i12.Click
If MaOC(18, 15) <> 1 And MaOC(18, 15) <> 100 Then
MaOC(18, 15) = 100
PictureBox15i12.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i13_Click(sender As Object, e As EventArgs) Handles PictureBox15i13.Click
If MaOC(18, 16) <> 1 And MaOC(18, 16) <> 100 Then
MaOC(18, 16) = 100
PictureBox15i13.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i14_Click(sender As Object, e As EventArgs) Handles PictureBox15i14.Click
If MaOC(18, 17) <> 1 And MaOC(18, 17) <> 100 Then
MaOC(18, 17) = 100
PictureBox15i14.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Private Sub PictureBox15i15_Click(sender As Object, e As EventArgs) Handles PictureBox15i15.Click
If MaOC(18, 18) <> 1 And MaOC(18, 18) <> 100 Then
MaOC(18, 18) = 100
PictureBox15i15.BackColor = Color.Gold
cou()
nosee()
VicLo()
beatback()
End If
End Sub
Sub beatback()
Dim u As Integer
Dim h As Integer
If bon = 0 Then
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) + MaOC(h, u + 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) + MaOC(h, u - 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) + MaOC(h + 4, u + 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) + MaOC(h - 4, u + 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) + MaOC(h + 4, u - 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) + MaOC(h - 4, u - 4) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) + MaOC(h + 4, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) + MaOC(h - 4, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) + MaOC(h, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) + MaOC(h, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) + MaOC(h - 1, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) + MaOC(h + 1, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) + MaOC(h - 1, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) + MaOC(h + 1, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) + MaOC(h - 1, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) + MaOC(h + 1, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u - 2) + MaOC(h, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u + 2) + MaOC(h, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h - 2, u - 2) + MaOC(h - 1, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h + 2, u - 2) + MaOC(h + 1, u - 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h - 2, u + 2) + MaOC(h - 1, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h + 2, u + 2) + MaOC(h + 1, u + 1) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h - 2, u) + MaOC(h - 1, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h + 2, u) + MaOC(h + 1, u) = 4 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) + MaOC(h, u + 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) + MaOC(h, u - 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) + MaOC(h + 4, u + 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) + MaOC(h - 4, u + 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) + MaOC(h + 4, u - 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) + MaOC(h - 4, u - 4) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) + MaOC(h + 4, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) + MaOC(h - 4, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) + MaOC(h, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) + MaOC(h, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) + MaOC(h - 1, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) + MaOC(h + 1, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) + MaOC(h - 1, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) + MaOC(h + 1, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) + MaOC(h - 1, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) + MaOC(h + 1, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u - 2) + MaOC(h, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u + 2) + MaOC(h, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h - 2, u - 2) + MaOC(h - 1, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h + 2, u - 2) + MaOC(h + 1, u - 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h - 2, u + 2) + MaOC(h - 1, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h + 2, u + 2) + MaOC(h + 1, u + 1) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h - 2, u) + MaOC(h - 1, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h + 2, u) + MaOC(h + 1, u) = 400 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 2) + MaOC(h, u + 1) + MaOC(h, u - 1) = 3 And MaOC(h, u + 3) = 0 And MaOC(h, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 2) + MaOC(h, u - 1) + MaOC(h, u + 1) = 3 And MaOC(h, u - 3) = 0 And MaOC(h, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u - 2) + MaOC(h + 1, u - 1) + MaOC(h - 1, u + 1) = 3 And MaOC(h + 3, u - 3) = 0 And MaOC(h - 2, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u) + MaOC(h - 1, u) + MaOC(h + 1, u) = 3 And MaOC(h - 3, u) = 0 And MaOC(h + 2, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u + 2) + MaOC(h + 1, u + 1) + MaOC(h - 1, u - 1) = 3 And MaOC(h + 3, u + 3) = 0 And MaOC(h - 2, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u + 2) + MaOC(h, u + 1) + MaOC(h, u - 1) = 3 And MaOC(h, u + 3) = 0 And MaOC(h, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u + 2) + MaOC(h - 1, u + 1) + MaOC(h + 1, u - 1) = 3 And MaOC(h - 3, u + 3) = 0 And MaOC(h + 2, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u) + MaOC(h + 1, u) + MaOC(h - 1, u) = 3 And MaOC(h + 3, u) = 0 And MaOC(h - 2, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u - 2) + MaOC(h - 1, u - 1) + MaOC(h + 1, u + 1) = 3 And MaOC(h - 3, u - 3) = 0 And MaOC(h + 2, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 2) + MaOC(h, u - 1) + MaOC(h, u + 1) = 300 And MaOC(h, u - 3) = 0 And MaOC(h, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u - 2) + MaOC(h + 1, u - 1) + MaOC(h - 1, u + 1) = 300 And MaOC(h + 3, u - 3) = 0 And MaOC(h - 2, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u) + MaOC(h - 1, u) + MaOC(h + 1, u) = 300 And MaOC(h - 3, u) = 0 And MaOC(h + 2, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u + 2) + MaOC(h + 1, u + 1) + MaOC(h - 1, u - 1) = 300 And MaOC(h + 3, u + 3) = 0 And MaOC(h - 2, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u + 2) + MaOC(h, u + 1) + MaOC(h, u - 1) = 300 And MaOC(h, u + 3) = 0 And MaOC(h, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u + 2) + MaOC(h - 1, u + 1) + MaOC(h + 1, u - 1) = 300 And MaOC(h - 3, u + 3) = 0 And MaOC(h + 2, u - 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 2, u) + MaOC(h + 1, u) + MaOC(h - 1, u) = 300 And MaOC(h + 3, u) = 0 And MaOC(h - 2, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 2, u - 2) + MaOC(h - 1, u - 1) + MaOC(h + 1, u + 1) = 300 And MaOC(h - 3, u - 3) = 0 And MaOC(h + 2, u + 2) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 3 And MaOC(h, u - 1) = 0 And MaOC(h, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 3 And MaOC(h, u + 1) = 0 And MaOC(h, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 3 And MaOC(h - 1, u - 1) = 0 And MaOC(h + 4, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 3 And MaOC(h + 1, u - 1) = 0 And MaOC(h - 4, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 3 And MaOC(h - 1, u + 1) = 0 And MaOC(h + 4, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 3 And MaOC(h + 1, u + 1) = 0 And MaOC(h - 4, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 3 And MaOC(h - 1, u) = 0 And MaOC(h + 4, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 3 And MaOC(h + 1, u) = 0 And MaOC(h - 4, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 300 And MaOC(h, u - 1) = 0 And MaOC(h, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 300 And MaOC(h, u + 1) = 0 And MaOC(h, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 300 And MaOC(h - 1, u - 1) = 0 And MaOC(h + 4, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 300 And MaOC(h + 1, u - 1) = 0 And MaOC(h - 4, u + 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 300 And MaOC(h - 1, u + 1) = 0 And MaOC(h + 4, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 300 And MaOC(h + 1, u + 1) = 0 And MaOC(h - 4, u - 4) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 And MaOC(h - 1, u) = 0 And MaOC(h + 4, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 And MaOC(h + 1, u) = 0 And MaOC(h - 4, u) = 0 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 300 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 300 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 300 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 300 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 200 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 200 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 200 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 200 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 200 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 200 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 200 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 200 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u) + MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 200 And MaOC(h, u) + MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u - 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u + 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h - 1, u - 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h + 1, u - 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h - 1, u + 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h + 1, u + 1) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h - 1, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h + 1, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 300 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u + 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u - 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h + 3, u + 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h - 3, u + 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h + 3, u - 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h - 3, u - 3) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h + 3, u) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h - 3, u) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) + MaOC(h, u - 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) + MaOC(h, u + 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) + MaOC(h - 1, u - 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) + MaOC(h + 1, u - 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) + MaOC(h - 1, u + 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) + MaOC(h + 1, u + 1) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) + MaOC(h - 1, u) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) + MaOC(h + 1, u) = 3 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u - 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u + 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h - 1, u - 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h + 1, u - 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h - 1, u + 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h + 1, u + 1) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h - 1, u) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h + 1, u) = 2 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u + 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u - 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h + 2, u + 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h - 2, u + 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h + 2, u - 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h - 2, u - 2) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h + 2, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h - 2, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h, u + 1) + MaOC(h, u - 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h, u - 1) + MaOC(h, u + 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u + 1) + MaOC(h - 1, u - 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u + 1) + MaOC(h + 1, u - 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u - 1) + MaOC(h - 1, u + 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u - 1) + MaOC(h + 1, u + 1) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h + 1, u) + MaOC(h - 1, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
If MaOC(h, u) = 0 And MaOC(h - 1, u) + MaOC(h + 1, u) = 200 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
For h = 4 To 18
For u = 4 To 18
If MaOC(h, u) = 0 And MaOC(h - 1, u) = 100 Then
MaOC(h, u) = 1
GoTo re
End If
Next
Next
Label5.Text = "error"
re:
End If
Label5.Text = "哈哈,接招吧!"
chorno()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
count = 0
Label4.Text = 0
For i = 0 To 22
For j = 0 To 22
MaOC(i, j) = 0
Next
Next
nosee()
Label5.Text = "再来看看你的能耐!"
bon = 0
PictureBox1.Enabled = True
Button2.Enabled = True
PictureBox1i1.BackColor = Color.White
PictureBox1i2.BackColor = Color.White
PictureBox1i3.BackColor = Color.White
PictureBox1i4.BackColor = Color.White
PictureBox1i5.BackColor = Color.White
PictureBox1i6.BackColor = Color.White
PictureBox1i7.BackColor = Color.White
PictureBox1i8.BackColor = Color.White
PictureBox1i9.BackColor = Color.White
PictureBox1i10.BackColor = Color.White
PictureBox1i11.BackColor = Color.White
PictureBox1i12.BackColor = Color.White
PictureBox1i13.BackColor = Color.White
PictureBox1i14.BackColor = Color.White
PictureBox1i15.BackColor = Color.White
PictureBox2i1.BackColor = Color.White
PictureBox2i2.BackColor = Color.White
PictureBox2i3.BackColor = Color.White
PictureBox2i4.BackColor = Color.White
PictureBox2i5.BackColor = Color.White
PictureBox2i6.BackColor = Color.White
PictureBox2i7.BackColor = Color.White
PictureBox2i8.BackColor = Color.White
PictureBox2i9.BackColor = Color.White
PictureBox2i10.BackColor = Color.White
PictureBox2i11.BackColor = Color.White
PictureBox2i12.BackColor = Color.White
PictureBox2i13.BackColor = Color.White
PictureBox2i14.BackColor = Color.White
PictureBox2i15.BackColor = Color.White
PictureBox3i1.BackColor = Color.White
PictureBox3i2.BackColor = Color.White
PictureBox3i3.BackColor = Color.White
PictureBox3i4.BackColor = Color.White
PictureBox3i5.BackColor = Color.White
PictureBox3i6.BackColor = Color.White
PictureBox3i7.BackColor = Color.White
PictureBox3i8.BackColor = Color.White
PictureBox3i9.BackColor = Color.White
PictureBox3i10.BackColor = Color.White
PictureBox3i11.BackColor = Color.White
PictureBox3i12.BackColor = Color.White
PictureBox3i13.BackColor = Color.White
PictureBox3i14.BackColor = Color.White
PictureBox3i15.BackColor = Color.White
PictureBox4i1.BackColor = Color.White
PictureBox4i2.BackColor = Color.White
PictureBox4i3.BackColor = Color.White
PictureBox4i4.BackColor = Color.White
PictureBox4i5.BackColor = Color.White
PictureBox4i6.BackColor = Color.White
PictureBox4i7.BackColor = Color.White
PictureBox4i8.BackColor = Color.White
PictureBox4i9.BackColor = Color.White
PictureBox4i10.BackColor = Color.White
PictureBox4i11.BackColor = Color.White
PictureBox4i12.BackColor = Color.White
PictureBox4i13.BackColor = Color.White
PictureBox4i14.BackColor = Color.White
PictureBox4i15.BackColor = Color.White
PictureBox5i1.BackColor = Color.White
PictureBox5i2.BackColor = Color.White
PictureBox5i3.BackColor = Color.White
PictureBox5i4.BackColor = Color.White
PictureBox5i5.BackColor = Color.White
PictureBox5i6.BackColor = Color.White
PictureBox5i7.BackColor = Color.White
PictureBox5i8.BackColor = Color.White
PictureBox5i9.BackColor = Color.White
PictureBox5i10.BackColor = Color.White
PictureBox5i11.BackColor = Color.White
PictureBox5i12.BackColor = Color.White
PictureBox5i13.BackColor = Color.White
PictureBox5i14.BackColor = Color.White
PictureBox5i15.BackColor = Color.White
PictureBox6i1.BackColor = Color.White
PictureBox6i2.BackColor = Color.White
PictureBox6i3.BackColor = Color.White
PictureBox6i4.BackColor = Color.White
PictureBox6i5.BackColor = Color.White
PictureBox6i6.BackColor = Color.White
PictureBox6i7.BackColor = Color.White
PictureBox6i8.BackColor = Color.White
PictureBox6i9.BackColor = Color.White
PictureBox6i10.BackColor = Color.White
PictureBox6i11.BackColor = Color.White
PictureBox6i12.BackColor = Color.White
PictureBox6i13.BackColor = Color.White
PictureBox6i14.BackColor = Color.White
PictureBox6i15.BackColor = Color.White
PictureBox7i1.BackColor = Color.White
PictureBox7i2.BackColor = Color.White
PictureBox7i3.BackColor = Color.White
PictureBox7i4.BackColor = Color.White
PictureBox7i5.BackColor = Color.White
PictureBox7i6.BackColor = Color.White
PictureBox7i7.BackColor = Color.White
PictureBox7i8.BackColor = Color.White
PictureBox7i9.BackColor = Color.White
PictureBox7i10.BackColor = Color.White
PictureBox7i11.BackColor = Color.White
PictureBox7i12.BackColor = Color.White
PictureBox7i13.BackColor = Color.White
PictureBox7i14.BackColor = Color.White
PictureBox7i15.BackColor = Color.White
PictureBox8i1.BackColor = Color.White
PictureBox8i2.BackColor = Color.White
PictureBox8i3.BackColor = Color.White
PictureBox8i4.BackColor = Color.White
PictureBox8i5.BackColor = Color.White
PictureBox8i6.BackColor = Color.White
PictureBox8i7.BackColor = Color.White
PictureBox8i8.BackColor = Color.White
PictureBox8i9.BackColor = Color.White
PictureBox8i10.BackColor = Color.White
PictureBox8i11.BackColor = Color.White
PictureBox8i12.BackColor = Color.White
PictureBox8i13.BackColor = Color.White
PictureBox8i14.BackColor = Color.White
PictureBox8i15.BackColor = Color.White
PictureBox9i1.BackColor = Color.White
PictureBox9i2.BackColor = Color.White
PictureBox9i3.BackColor = Color.White
PictureBox9i4.BackColor = Color.White
PictureBox9i5.BackColor = Color.White
PictureBox9i6.BackColor = Color.White
PictureBox9i7.BackColor = Color.White
PictureBox9i8.BackColor = Color.White
PictureBox9i9.BackColor = Color.White
PictureBox9i10.BackColor = Color.White
PictureBox9i11.BackColor = Color.White
PictureBox9i12.BackColor = Color.White
PictureBox9i13.BackColor = Color.White
PictureBox9i14.BackColor = Color.White
PictureBox9i15.BackColor = Color.White
PictureBox10i1.BackColor = Color.White
PictureBox10i2.BackColor = Color.White
PictureBox10i3.BackColor = Color.White
PictureBox10i4.BackColor = Color.White
PictureBox10i5.BackColor = Color.White
PictureBox10i6.BackColor = Color.White
PictureBox10i7.BackColor = Color.White
PictureBox10i8.BackColor = Color.White
PictureBox10i9.BackColor = Color.White
PictureBox10i10.BackColor = Color.White
PictureBox10i11.BackColor = Color.White
PictureBox10i12.BackColor = Color.White
PictureBox10i13.BackColor = Color.White
PictureBox10i14.BackColor = Color.White
PictureBox10i15.BackColor = Color.White
PictureBox11i1.BackColor = Color.White
PictureBox11i2.BackColor = Color.White
PictureBox11i3.BackColor = Color.White
PictureBox11i4.BackColor = Color.White
PictureBox11i5.BackColor = Color.White
PictureBox11i6.BackColor = Color.White
PictureBox11i7.BackColor = Color.White
PictureBox11i8.BackColor = Color.White
PictureBox11i9.BackColor = Color.White
PictureBox11i10.BackColor = Color.White
PictureBox11i11.BackColor = Color.White
PictureBox11i12.BackColor = Color.White
PictureBox11i13.BackColor = Color.White
PictureBox11i14.BackColor = Color.White
PictureBox11i15.BackColor = Color.White
PictureBox12i1.BackColor = Color.White
PictureBox12i2.BackColor = Color.White
PictureBox12i3.BackColor = Color.White
PictureBox12i4.BackColor = Color.White
PictureBox12i5.BackColor = Color.White
PictureBox12i6.BackColor = Color.White
PictureBox12i7.BackColor = Color.White
PictureBox12i8.BackColor = Color.White
PictureBox12i9.BackColor = Color.White
PictureBox12i10.BackColor = Color.White
PictureBox12i11.BackColor = Color.White
PictureBox12i12.BackColor = Color.White
PictureBox12i13.BackColor = Color.White
PictureBox12i14.BackColor = Color.White
PictureBox12i15.BackColor = Color.White
PictureBox13i1.BackColor = Color.White
PictureBox13i2.BackColor = Color.White
PictureBox13i3.BackColor = Color.White
PictureBox13i4.BackColor = Color.White
PictureBox13i5.BackColor = Color.White
PictureBox13i6.BackColor = Color.White
PictureBox13i7.BackColor = Color.White
PictureBox13i8.BackColor = Color.White
PictureBox13i9.BackColor = Color.White
PictureBox13i10.BackColor = Color.White
PictureBox13i11.BackColor = Color.White
PictureBox13i12.BackColor = Color.White
PictureBox13i13.BackColor = Color.White
PictureBox13i14.BackColor = Color.White
PictureBox13i15.BackColor = Color.White
PictureBox14i1.BackColor = Color.White
PictureBox14i2.BackColor = Color.White
PictureBox14i3.BackColor = Color.White
PictureBox14i4.BackColor = Color.White
PictureBox14i5.BackColor = Color.White
PictureBox14i6.BackColor = Color.White
PictureBox14i7.BackColor = Color.White
PictureBox14i8.BackColor = Color.White
PictureBox14i9.BackColor = Color.White
PictureBox14i10.BackColor = Color.White
PictureBox14i11.BackColor = Color.White
PictureBox14i12.BackColor = Color.White
PictureBox14i13.BackColor = Color.White
PictureBox14i14.BackColor = Color.White
PictureBox14i15.BackColor = Color.White
PictureBox15i1.BackColor = Color.White
PictureBox15i2.BackColor = Color.White
PictureBox15i3.BackColor = Color.White
PictureBox15i4.BackColor = Color.White
PictureBox15i5.BackColor = Color.White
5: PictureBox15i6.BackColor = Color.White
PictureBox15i7.BackColor = Color.White
PictureBox15i8.BackColor = Color.White
PictureBox15i9.BackColor = Color.White
PictureBox15i10.BackColor = Color.White
PictureBox15i11.BackColor = Color.White
PictureBox15i12.BackColor = Color.White
PictureBox15i13.BackColor = Color.White
PictureBox15i14.BackColor = Color.White
PictureBox15i15.BackColor = Color.White
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Label5.Text = "哈哈,我就知道你会投降"
PictureBox1.Enabled = False
Button2.Enabled = False
Button3.Enabled = True
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Button2.Enabled = True
Button4.Enabled = True
PictureBox1.Enabled = True
Button5.Visible = False
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Yourname = TextBox1.Text
If Yourname = "MaOC" Then
Label7.Text = "哈哈,我们的名字一样"
End If
If Yourname = "Artist" Then
Label7.Text = "你真的是我的主人吗?"
End If
Label6.Text = "hi,你好" & Yourname
Label2.Visible = True
Label4.Visible = True
Label5.Text = "那我们现在开始OK?"
Button5.Visible = True
TextBox1.Visible = False
Button6.Visible = False
End Sub
Private Sub PictureBox1_GotFocus(sender As Object, e As EventArgs) Handles PictureBox1.GotFocus
End Sub
End Class