如何用VB6创建透明图象

透过前面的图象看到背景图象，称前面的图象为透明图象，我们见过很多程序和电视节目中都有使用透明图象，而且大家一定会为图象的透明而称奇。究竟透明图象是如何做出来的呢？下面我们将来探讨这种透明图象的制作方法。
创建透明图象的五个必须的步骤： 
准备两个位图文件，一个作背景，一个是将要成为透明图象的源位图。
1、 取得源位图的长、宽数据，依此数据保存一块和源位图一样大小的背景位图，源位图将要在这块背景位图上绘制。通过用白色像素显示位图的透明区域，黑色像素显示位图的不透明区域，创建决定位图透明的单色掩码。
2、单色掩码像素与所用的背景位图进行二进制“与”（and）位操作，不透明的区域，背景显示黑色。
3、用第一步所做的单色掩码建立一个反向拷贝，再用这个反向拷贝与所用的源位图进行二进制“与”（and）位操作，源位图透明的区域将显示黑色 
4、用第二步修改过的背景和第三步修改的源位图进行二进制“异或”（Xor）位操作，这时可以透过透明位图看到背景。
5、把结果位图复制给背景 
应用实例： 
创建包含一个 CommandButton 控件和两个PictureBox控件的 窗体Form1。创建一个模块（在 "工程”菜单中单击“添加模块”）。
给窗体增加下列控件，设置相关的属性值： 
控件 Name Property Settings
-----------------------------------------------------------------
PictureBox pictSource Picture ="C:Flower_Vine.bmp"
PictureBox pictDest Picture ="C:Stones_Blue.bmp"
Command button Command1 Caption ="透明图象"
---- 将下面的代码粘贴到窗体的声明部分中， 
---- Option Explicit ' 这段代码调用过程Transparent()复制源位图到目标（背景）picturebox控件， ' 并将其变成透明，使人们可以看到后面的背景图象。