loupe

Attribute VB_Name = "Loupe"
Option Explicit

' constantes pour l api StretchBlt :
'-----------------------------------
Public Const SRCCOPY = &HCC0020         ' (DWORD) dest = source
 
Public Declare Function GetClientRect Lib "User32" _
  (ByVal hWnd As Long, _
   lpRect As RECT) As Long
   
Public Declare Function ScreenToClient Lib "User32" _
  (ByVal hWnd As Long, _
   lpPoint As POINTAPI) As Long
   
Public 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
   
Public Declare Function GetCursorPos Lib "User32" _
  (lpPoint As POINTAPI) As Long

Public Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Public Type POINTAPI
        X As Long
        Y As Long
End Type