كيف يمكن جعل الفورم شفافة

http://www.vb-faq.com/Articles/Pharis/tran...sparentform.asp

http://www.a1vbcode.com/app.asp?ID=342

أخي العزيز عبد الله فتحي كيف حالك هل أنت بخير أرجو أن ينفعك هذا الكود :

أخوك : سعد (f)

أخي العزيز عبد الله فتحي أنا أسف و لكنني وضعت الكود و لكن لم يظهر و لكن هذا الكود على كل حال :

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Const LWA_ALPHA = 2

Const GWL_EXSTYLE = (-20)

Const WS_EX_LAYERED = &H80000

Private Sub Form_Load()

SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED

SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA

End Sub

أعود و أكرر أسفي .

أخوك : سعد (f)

أخي العزيز : hamohd70

أخي العزيز : saadanty

أشكركما جزيل الشكر على اهتمامكم ومسارعتكم بالرد، بارك الله فيكم، وجزاكم الله خيراً.

مع خالص تمنياتي بالتوفيق

عبد الله