Attribute VB_Name = "Module1"
Global CurX As Integer            '目前X坐標
Global Total(10, 20) As Boolean    '總體坐標布局 10x20
Global MinX As Integer '一個方塊的最大 x 坐標
Global MaxX As Integer '一個方塊的最小 x 坐標
Global MinY As Integer '一個方塊的最大 y 坐標
Global MaxY As Integer '一個方塊的最小 y 坐標

Type cXs    '一個方塊 4 個點的坐標
    cX As Integer 'x 坐標
    cY As Integer 'y 坐標
    cZ As Boolean '判斷一個點下面是否是空的
End Type
Global Xs(4) As cXs

Global Adjust_Left As Integer '翻轉后向左方調整的位置
Global Adjust_Top As Integer  '翻轉后向上方調整的位置
    
'BitBlt 函數作用：位操作位圖，實現不規則的方塊的動作
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long