CodeItBetter Programming Another VB Programming Blog

'Graphics - How to Display an image onto a hDC with transparency
Option Explicit
 
Private 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 Sub cmdBitBlt_Click()
    BitBlt picFinal.hDC, 0, 0, 136, 109, picMask.hDC, 0, 0, vbSrcPaint
    BitBlt picFinal.hDC, 0, 0, 136, 109, picOriginal.hDC, 0, 0, vbSrcAnd
End Sub