Cara Membuat FORM Menjadi Tembus Pandang dalam VB 6

Langkah pertama buat form baru..

Simple ajah

Tulis ini Kedalam Listing ;

‘harus paling atas

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

End Sub

'200 untuk menentukan seberapa tembus pandangnya.. (bebas, semakin kurang semakin asik)

Keren Bukan…

Selamat Mencoba..