"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 SRCAND = &amp;H8800C6
    Private Const SRCCOPY = &amp;HCC0020
    Private Const SRCERASE = &amp;H440328
    Private Const SRCINVERT = &amp;H660046
    Private Const SRCPAINT = &amp;HEE0086
    Private Const BLACKNESS = &amp;H42
    Private Const WHITENESS = &amp;HFF0062
Private Declare F