图片怎么才能变成半透明。

Question

利用AlphaBlend函数实现图像的淡入淡出
http://www.applevb.com/art/alphablend.txt

Answer 1

但是不知道代码写错了哪，实现不了，请大家为我看看。 
模块定义： 
Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean form代码： 
Option Explicit 
Dim l As Boolean Private Sub Command1_Click() 
Picture1.Picture = LoadResPicture("map", vbResBitmap)'背景图 
Picture2.Picture = LoadResPicture(1, vbResBitmap)'要变为半透明的图 
l = AlphaBlend(Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture2.hDC, 0, 0, Picture2.ScaleWidth, Picture1.ScaleHeight, 176) 
Label1.Caption = l 'TRUE：成功 FALSE：失败 
End Sub