كيف تحتفظ الصوره بشكلها وهي يتم سحبها بالماوس؟

Option Explicit

Private Declare Function AlphaBlending Lib "Alphablending.dll" _

(ByVal destHDC As Long, ByVal XDest As Long, ByVal YDest As Long, _

ByVal destWidth As Long, ByVal destHeight As Long, ByVal srcHDC As Long, _

ByVal XSrc As Long, ByVal YSrc As Long, ByVal srcWidth As Long, ByVal srcHeight As Long, ByVal AlphaSource As Long) As Long

--------------------------------------------------------------------------------------

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Cls

AlphaBlending Me.hDC, X, Y, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 250

Me.Refresh

End Sub

بسم الله

أشكرك جدا على هذا التقدير

لكنى لا أجد الملف

.dll AlphaBlending

هل يمكن أن ترسله لى على البريد الالكترونى وأكون عاجز عن الشكر