(lAnd), ByVal lPtr,
                      WidthBytes(tBMIH.biWidth) * tBMIH.biHeight
                  End If
                  DeleteObject hDibImage
               End If
                     
               
               SelectObject lhDCImage, lhBmpImage
               DeleteObject lhBmpImage
            End If
            DeleteDC lhDCImage
         End If
         
      
         
         SelectObject lhDCMaskCopy, lhBMPMaskOld
         DeleteObject lhBMPMask
      End If
      DeleteDC lhDCMaskCo