      
         ' We have the mask bitmap.  Now we can transfer the
         ' image:
         lhDCImage = CreateCompatibleDC(lHDC)
         If lhDCImage &lt;&gt; 0 Then
            lhBmpImage = CreateCompatibleBitmap(lHDC, tBMIH.biWidth,
             tBMIH.biHeight)
            If lhBmpImage &lt;&gt; 0 Then
               lhBmpImageOld = SelectObject(lhDCImage, lhBmpImage)
               ' Copy the image;
               BitBlt lhDCImage, 0, 0, tBMIH.biWidth, tBMIH.biHeight, lHDC, x,
                y, vbSr