paintpicture 的效果如何转换成bitblt？

Question

Picture1.PaintPicture picone.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, picone.Width, picone.Height, vbSrcAndPicture1.PaintPicture pictwo.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, pictwo.Width, pictwo.Height, vbSrcInvertpicone
是白色的背景，画黑色的图形pictwo
是黑色的背景，画彩色的图形
试验好多次，没有成功，请写出用bitblt的替代码