bsp; ''打开下面的点
If mY + 1 <= NowHeight Then
If What(mX, mY + 1) = 0 Then
What(mX, mY + 1) = 11
Picture1.PaintPicture image1(0).Picture, mX - 1, mY
OpenFlag = OpenFlag + 1
ElseIf What(mX, mY + 1) >= 1 And What(mX, mY + 1) <= 9 Then
Picture1.PaintPicture image1(What(mX, mY + 1)).Picture, mX
- 1, mY
What(mX, mY + 1) = -What(mX, mY + 1)
OpenFlag = OpenFlag + 1
End If
End If
''最后打开左下的点
If mY + 1 <= NowHeight And mX - 1 >= 1 Then
If What(mX - 1, mY + 1) = 0 Then
What(mX - 1, mY + 1) = 11
Picture1.PaintPicture image1(0).Picture, mX - 2, mY
OpenFlag = OpenFlag + 1
ElseIf What(mX - 1, mY + 1) >= 1 And What(mX - 1, mY + 1)
<= 9 Then
Picture1.PaintPicture image1(What(mX - 1, mY +
1)).Picture, mX - 2, mY
What(mX - 1, mY + 1) = -Wha