Form Transparant

heyy Guys...
kali ini saya akan membahas ttng Vb yt cara membuat Form transparant

Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

*Buatlah sebuah Project Baru Standart Exe

Ketik Coding dibawah ini pada Form,atau Copy dan paste di Source Codenya

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Setelah itu jalankan Program yg anda buat tadi
Jrenk jrenk...
maka Form akan terlihat transparant...

Selamat Mencoba!!!!!!!!!
salam hangat