en
                  lhDCDibImage = CreateCompatibleDC(lHDC)
                  If lhDCDibImage &lt;&gt; 0 Then
                     lhDibImageOld = SelectObject(lhDCDibImage, hDibImage)
                     BitBlt lhDCDibImage, 0, 0, tBMIH.biWidth, tBMIH.biHeight,
                      lhDCMaskCopy, 0, 0, vbNotSrcCopy
                     SelectObject lhDCDibImage, lhDibImageOld
                     DeleteDC lhDCDibImage
                     GdiFlush
                     CopyMemory m_tBits(nIndex - 1).bBits