Option Explicit
 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As _
        Long, ByVal XDest As Long, ByVal YDest As Long, ByVal _
        nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc _
        As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal _
        dwRop As Long) As Long
 
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth _
        As Long, ByVal nHeight As Long, ByVal nPlanes As Long, _
        ByVal nBitCount As Long, lpBits As Any) As Long
 
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As _
        Long, ByVal crColor As Long) As Long
 
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As _
        Long, ByVal hObject As Long) As Long
 
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal _
        hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) _
        As Long
 
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc _
        As Long) As Long
 
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) _
        As Long
 
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject _
       As Long) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Dim R As RECT
Dim PMove As Boolean
 
Private Sub Form_Load()
 
  Picture1.ScaleMode = vbPixels
  Picture1.AutoRedraw = True
  Picture2.ScaleMode = vbPixels
 
  With R
   .Left = 0
   .Top = 0
   .Right = Picture2.ScaleWidth
   .Bottom = Picture2.ScaleHeight
  End With
 
  Picture3.Picture = Picture1.Picture
Dim x
Dim y
  x = 0
  y = 0
  If PMove Then Call MovePicTo(x, y)
End Sub
 
Private Sub Picture1_Click()
  PMove = IIf(PMove, False, True)
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, _
                               Shift As Integer, _
                               x As Single, y As Single)
 
  If PMove Then Call MovePicTo(x, y)
End Sub
 
Private Sub TranspPic(OutDstDC&, DstDC&, SrcDC&, SrcRect _
                      As RECT, ByVal DstX&, ByVal DstY&, _
                      TransColor&)
 
  Dim Result&, W&, H&
  Dim MonoMaskDC&, hMonoMask&, MonoInvDC&, hMonoInv&
  Dim ResultDstDC&, hResultDst&, ResultSrcDC&, hResultSrc&
  Dim hPrevMask&, hPrevInv&, hPrevSrc&, hPrevDst&
 
    W = SrcRect.Right - SrcRect.Left
    H = SrcRect.Bottom - SrcRect.Top