VB6 Code - Menjadikan Form Semi Transparan

Bagaimana cara membuat form semi transparan menggunakan Visual Basic 6.0?. Simaklah kode VB6 di bawah ini:

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 color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean

Const LWA_BOTH = 3
Const LWA_ALPHA = 2
Const LWA_COLORKEY = 1
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000

Dim iTransparant As Integer

Sub MakeTransparan(hWndBro As Long, iTransp As Integer)
   On Error Resume Next
  
   Dim ret As Long
   ret = GetWindowLong(hWndBro, GWL_EXSTYLE)
  
   SetWindowLong hWndBro, GWL_EXSTYLE, ret Or  WS_EX_LAYERED
   SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA
   Exit Sub

End Sub

Contoh penggunaan fungsi VB6 di atas:

Option Explicit

Private Sub Form_Load()
   On Error Resume Next
   MakeTransparan Me.hWnd, 75
End Sub

Demikian mengenai cara membuat form menjadi semi transparant menggunakan VB6. Semoga bermanfaat.