镂空贴图的内容怎么保存呀

镂空贴图的内容如何保存呀
'镂空贴图的内容如何保存呀？
'将1的内容贴到2中，在3中无法获得，也不知道如何保存贴图后的合并的图片内容
                DoEvents
                TransparentBlt   Picture2.hdc,   300,   300,   Picture1.ScaleWidth,   Picture1.ScaleHeight,   Picture1.hdc,   0,   0,   Picture1.ScaleWidth,   Picture1.ScaleHeight,   vbWhite
                Picture3.Picture   =   Picture2.Picture   '获得的是没有贴的图

[解决办法]
这样试试：

picture2.autoredraw=true


DoEvents
TransparentBlt Picture2.hdc, 300, 300, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite


Picture3.Picture = Picture2.image '获得的是没有贴的图


[解决办法]
你那后面的vbwhite是maskcolor吗？