XProfan

nProc drawhPic(long hPic,dc,x,y,xx,yy,dwROP){

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    bitBlt(dc,x,y,xx,yy,hDCBits,0,0,dwROP)
    deleteDC(hDCBits)

}

nProc drawhPicTransparent(long hPic,dc,x,y,xx,yy,col){

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    transparentBlt(dc,x,y,xx,yy,hDCBits,0,0,xx,yy,col)
    deleteDC(hDCBits)

}