Attribute VB_Name = "Module1"
'聲明API函數
'Createrectrgn為創建一個由點X1，Y1和X2，Y2描述的矩形區域
'因為窗體是由一個個矩形組成的
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Combinergn將兩個區域組合為一個新區域
'把一個個矩形合為一個新的區域
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
'做一個古怪的窗口必須要用的也是那個程序中最重要的一個函數就是SetWindowRgn
'它的功能就是對指定的窗口進行重畫，把這個窗口你選擇的部分留下
'其余的部分抹掉。
'參數：hWnd：你所要重畫的窗口的句柄，比如你想重畫form1
'則應該讓此參數為form1.hWnd
'      hRgn：你要保留的區域的句柄，這個句柄是關鍵，你需要通過別的渠道來獲得
'在這里的區域是由Combinergn合成的新區域
'     bRedram：是否要馬上重畫，一般設為true
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'用這個函數刪除GDI對象，比如畫筆、刷子、字體、位圖、區域以及調色板等等。對象使用的所有系統資源都會被釋放
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Type Dat '自定義類型
'為了和坐標配合，把變量設置為整數型
sx As Integer '存掃描頭次遇到非背景色的X坐標
ex As Integer '存掃描非背景色結束的X坐標
sy As Integer 'Y坐標的開始
ey As Integer 'Y坐標的結束
End Type