    GdiFlush
                     CopyMemory m_tBits(nIndex - 1).bBits(lXor), ByVal lPtr,
                      WidthBytes(tBMIH.biWidth * tBMIH.biHeight *
                      tBMIH.biPlanes * tBMIH.biBitCount)
                  End If
                  DeleteObject hDibImage
               End If
               hDibImage = 0: lhDCDibImage = 0: lhDibImageOld = 0
               hDibImage = CreateDIBSection(lHDC, tBMIMono, DIB_RGB_COLORS,
                lPtr, 0, 0)
               If hDibImage &lt;&gt; 0 Th