Cara Membuat Form Transparant

Pertama buat Form Standard Exe, kemudian paste kan code tersebut di Form_load
:

Code: SetTransparan Me.hwnd, 200, True 'yang angka 200 itu adalah set stransfarannya

Kedua buat 1 Module baru dan pastekan code berikut
:
Private Declare Function _     SetLayeredWindowAttributes Lib "user32.dll" _     (ByVal hwnd As Long, ByVal crKey As Long, _     ByVal bAlpha As Byte, _     ByVal dwFlags As Long) As Long 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" _     (ByValhwnd As Long, ByVal nIndex As Long, _     ByVal dwNewLong As Long) As Long Public Sub SetLayeredWindow(ByVal hwnd _     As Long, ByVal bIslayered As Boolean)     Dim WinInfo As Long     WinInfo = GetWindowLong(hwnd, -20)     If bIslayered = True Then             WinInfo = WinInfo Or 524288     Else             WinInfo = WinInfo And Not 524288     End If     SetWindowLong hwnd, -20, WinInfo End Sub Public Sub SetTransparan(ByValhwnd _     As Long, ByVal Opacity As Byte, _     IsTransparent As Boolean)     If IsTransparent = True Then             SetLayeredWindow hwnd, True             SetLayeredWindowAttributes hwnd, _                     0, Opacity, 2     ElseIf IsTransparent = False Then             SetLayeredWindow hwnd, False     End If End Sub

Selesai..

Kalo masih ada yang kurang jelas bisa di langsung di tanyakan, jangan pernah malu bertanya sobat. :D

Read more: http://njank-njutz.blogspot.com/2012/04/cara-membuat-form-transparant.html#ixzz2MwZhDbmu