Declare PtrSafe Function GetWindowOrgEx Lib "gdi32" Alias "GetWindowOrgEx" (ByVal hdc As LongPtr, lpPoint As POINTAPI) As Long

Declare PtrSafe Function IntersectClipRect Lib "gdi32" Alias "IntersectClipRect" (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Declare PtrSafe Function InvertRgn Lib "gdi32" Alias "InvertRgn" (ByVal hdc As LongPtr, ByVal hRgn As LongPtr) As Long

Declare PtrSafe Function LineTo Lib "gdi32" Alias "LineTo" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long) As Long

Declare PtrSafe Function MaskBlt Lib "gdi32" Alias "MaskBlt" (ByVal hdcDest As LongPtr, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As LongPtr, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As LongPtr, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long

Declare PtrSafe Function PlgBlt Lib "gdi32" Alias "PlgBlt" (ByVal hdcDest As LongPtr, lpPoint As POINTAPI, ByVal hdcSrc As LongPtr, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As LongPtr, ByVal xMask As Long, ByVal yMask As Long) As Long

Declare PtrSafe Function OffsetClipRgn Lib "gdi32" Alias "OffsetClipRgn" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long) As Long

Declare PtrSafe Function OffsetRgn Lib "gdi32" Alias "OffsetRgn" (ByVal hRgn As LongPtr, ByVal x As Long, ByVal y As Long) As Long

Declare PtrSafe Function PatBlt Lib "gdi32" Alias "PatBlt" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long

Declare PtrSafe Function Pie Lib "gdi32" Alias "Pie" (ByVal hdc As LongPtr, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long

Declare PtrSafe Function PlayMetaFile Lib "gdi32" Alias "PlayMetaFile" (ByVal hdc As LongPtr, ByVal hMF As LongPtr) As Long

Declare PtrSafe Function PaintRgn Lib "gdi32" Alias "PaintRgn" (ByVal hdc As LongPtr, ByVal hRgn As LongPtr) As Long

Declare PtrSafe Function PolyPolygon Lib "gdi32" Alias "PolyPolygon" (ByVal hdc As LongPtr, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As Long

Declare PtrSafe Function PtInRegion Lib "gdi32" Alias "PtInRegion" (ByVal hRgn As LongPtr, ByVal x As Long, ByVal y As Long) As Long

第1套教程：VBA程式碼解決方案

第2套教程：VBA資料庫解決方案

第3套教程：VBA陣列與字典解決方案

第4套教程：VBA程式碼解決方案之影片（第一套的影片講解）

第5套教程：VBA中類的解讀和利用

第6套教程：VBA資訊獲取與處理

第7套教程：VBA之EXCEL應用

上述教程的學習順序：7→1→3→2→6→5或者7→4→3→2→6→5。

如何學習VBA呢? 概括的說就是: 學習過程中要信、解、受、持，更要有迴向的業力。無論您在學習的任何階段，都要對照教程的知識點加持自己的實際工作，總會有豐厚的收穫。教程學習順序是7,1(或4),3,2,6,5。第7套《VBA之Excel應用》是對VBA基本的講解；第1（或4）套《VBA程式碼解決方案》是《VBA之Excel應用》的提高；第3套《VBA陣列與字典解決方案》是VBA應用的專題講解，教程中講解的專題是陣列和字典，大家會在這套教程中看到非常全面的陣列與字典的應用；第2套《VBA資料庫解決方案》也是VBA應用的專題講解，教程講解的專題是資料庫，大家會在這套教程中看到VBA連線Excel與accdb的全面應用；第6套《VBA資訊獲取與處理》是整個VBA應用的提高；第5套《VBA中類的解讀及應用》是VBA的最高理論“類”“介面技術”的講解。

分享成果，隨喜正能量