cara Buat Form VB Jadi Transfaran

Iseng-iseng neh gan,, :p  sambil tunggu hujan berhenti,,, sambil nikmatin segelas kopi,,, ane cari tau cara biar Form VB yang ane buat jadi Transfaran... Mungkin buat programer handal script ini sudah ga asing lagi,,,, Tapi buat NewBi kayak saya.. Pusingnye setengah tiang,,, hehehehehe...
Ok langsung ke TKP.... ==OvJ Kaliee==== hahaha
Langkah Pertama agan" buka VB .... Lalu agan Double Klik pada form VB tersebut ==sembarang tempat yang penting di Form=== Terus agan Copy Paste Script di bawah ini:

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

terus agan liat deh hasilnya....

Gmn Ajib Kan...... hehehhehe