       DIB_RGB_COLORS, lPtr, 0, 0)
               If hDibImage &lt;&gt; 0 Then
                  lhDCDibImage = CreateCompatibleDC(lHDC)
                  If lhDCDibImage &lt;&gt; 0 Then
                     lhDibImageOld = SelectObject(lhDCDibImage, hDibImage)
                     BitBlt lhDCDibImage, 0, 0, tBMIH.biWidth, tBMIH.biHeight,
                      lhDCImage, 0, 0, vbSrcCopy
                     SelectObject lhDCDibImage, lhDibImageOld
                     DeleteDC lhDCDibImage
                 