hen
            ' Create a mask from the transparent colour:
            SetBkColor lMaskHDC, lTransparentColour
            SetBkColor lHDC, lTransparentColour
            ' Copy from source DC, inverting the destination:
            BitBlt lhDCMaskCopy, 0, 0, tBMIH.biWidth, tBMIH.biHeight, lHDC, x,
             y, vbNotSrcCopy
         Else
            ' Make a copy of the mask:
            BitBlt lhDCMaskCopy, 0, 0, tBMIH.biWidth, tBMIH.biHeight, lMaskHDC,
             x, y, vbSrcCopy
         End If
   