BOOL AlphaBlend(
  HDC hdcDest,             // handle to dest DC
  int nXOriginDest,        // x-coord upper-left
  int nYOriginDest,        // y-coord upper-left
  int nWidthDest,          // destination width
  int nHeightDest,         // destination height
  HDC hdcSrc,              // handle to source DC
  int nXOriginSrc,         // x-coord upper-left
  int nYOriginSrc,         // y-coord upper-left
  int nWidthSrc,           // source width
  int nHeightSrc,          // source height
  BLENDFUNCTION blendFunc  // alpha-blending func
);
 

 
DECLARE INTEGER AlphaBlend IN Msimg32;
    INTEGER hDestDC,;
    INTEGER x,;
    INTEGER y,;
    INTEGER nWidth,;
    INTEGER nHeight,;
    INTEGER hSrcDC,;
    INTEGER xSrc,;
    INTEGER ySrc,;
    INTEGER nWidthSrc,;
    INTEGER nHeightSrc,;
    INTEGER blendFunction
 
 

 
* assembling the BLENDFUNCTION structure 
lnAlphaBlend = lnBlendOp +;
    BitLShift(lnBlendFlags, 8) +;
    BitLShift(lnSrcConstAlpha, 16) +;
    BitLShift(lnAlphaFormat, 24)
 
lnResult = AlphaBlend(hDC, lnX,lnY, lnWidth,lnHeight,;
    hMemDC, 0,0, lnWidth,lnHeight,;
    lnAlphaBlend)