Buat sebuah form contoh di sini form1 kemudian buat juga sebuah module yang di sini namanya module1, kalau sudah masukkan script pada module1 seperti di bawah ini biar gampang cukup copy dan pastekan pada jendela code module1
Code:
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" _
(ByVal hwnd 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(ByVal hwnd _
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 SubKemudian buka windows code atau biar gambang cukup klik 2x pada form1 tepatnya pada Object form Procedur Load dan masukkan script yang di bawah:
Code:
Private Sub Form_Load()
SetTransparan Me.hwnd, 200, True
End Sub