哪个是VB高手？？？、

谁是VB高手帮我解决点问题嘛，急急、、、、、

关于窗口放大镜的程序，有些看不懂，谁能帮我详解下：

Option Explicit

Private Type POINTAPI

  x As Long

  y As Long

End Type

 

Const Srccopy = &HCC0020

Const Swp_nomove = &H2

Const Swp_nosize = &H1

Const Flags = Swp_nomove Or Swp_nosize

Const hwnd_topmost = -1

 

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _

    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _

    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

 

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

 

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

 

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, _

    ByVal dwRop As Long) As Long

 

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _

    ByVal X2 As Long, ByVal Y2 As Long) As Long

 

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _

    ByVal bRedraw As Long) As Long

 

Dim pos As POINTAPI

Dim i As Long

Dim sx As Long

Dim sy As Long

就这些，看不咋懂，哪位好心人帮我看看，小女子在此，谢谢啦、、、、、