--:>Visual Basic 6
-=-=-=-=-=-=-=-
1.Buka Visual basic 6.0
2.Buat sebuah form Standart EXE
3.Dobble Click Form Tersebut
Masukkan Code Berikut:
Option Explicit
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 crKey As Long, ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Private Sub form_load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA '200 adalah nilai transparant semakin kecil nilainya semakin transparant, nilai 255 untuk reset.
End Sub
SELESAII.....
-------------------------------------------
Lihat HasiNya Mass!!..
-------------------------------------------
By : AlexzCucuMbahGoogle
