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
Private Const SRCCOPY = &HCC0020
Private Const SRCERASE = &H440328
Private Const SRCINVERT = &H660046
Private Const SRCPAINT = &HEE0086
Private Const SRCAND = &H8800C6
 
Declare Function GetDC Lib "user32" ( _
    ByVal hwnd As Long) As Long