0 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 21).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx + 1
Call show11(bx, by)
End If
End If
Case 12
If Form_main.Image_block(by * 10 + bx + 3).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False Then
If bx < 7 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
bx = bx + 1
Call show12(bx, by)
End If
End If
Case 13
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 21).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx + 1
Call show13(bx, by)
End If
End If
Case 14
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 3).Visible = False And Form_main.Image_block(by * 10 + bx + 13).Visible = False Then
If bx < 7 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx + 1
Call show14(bx, by)
End If
End If
End If
Case 15
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx + 1
Call show15(bx, by)
End If
End If
End If
Case 16
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx + 1
Call show16(bx, by)
End If
End If
End If
Case 17
If Form_main.Image_block(by * 10 + bx + 3).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False Then
If bx < 7 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
bx = bx + 1
Call show17(bx, by)
End If
End If
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
