[VB6]Cara Membuat form Transparant

pertama buat form standard Exe kemudian paste kan code tersebut di Form_load

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

kedua buat 1modul 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" _

        (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 Sub

VB.net:

Me.Opacity = 0.5

angka 0.5 bisa diganti dengan range value: 1 s/d 0