ادة Image يها صورة شفافة

اتفضل هذا الكود

مع العلم انه يعمل مع picture box مش image

'This project requires two picture boxes
'Both picture boxes should contain a picture
Private Type BLENDFUNCTION
  BlendOp As Byte
  BlendFlags As Byte
  SourceConstantAlpha As Byte
  AlphaFormat As Byte
End Type
Private Declare Function GdiAlphaBlend Lib "gdi32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
	'KPD-Team 2001
	'URL: http://www.allapi.net/
	'E-Mail: KPDTeam@Allapi.net
	Dim BF As BLENDFUNCTION, lBF As Long
	'Set the graphics mode to persistent
	image1.AutoRedraw = True
	image2.AutoRedraw = True
	'API uses pixels
	image1.ScaleMode = vbPixels
	image2.ScaleMode = vbPixels
	'set the parameters
	With BF
		.BlendOp = AC_SRC_OVER
		.BlendFlags = 0
		.SourceConstantAlpha = 128
		.AlphaFormat = 0
	End With
	'copy the BLENDFUNCTION-structure to a Long
	RtlMoveMemory lBF, BF, 4
	'AlphaBlend the picture from Picture1 over the picture of Picture2
	GdiAlphaBlend image2.hdc, 0, 0, image2.ScaleWidth, image2.ScaleHeight, image1.hdc, 0, 0, image1.ScaleWidth, image1.ScaleHeight, lBF
End Sub