Module Form Transparan dengan VB6

Di bawah ini adalah source code module VB6 untuk membuat form transparan:

Const LWA_COLORKEY = &H1 Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const BM_SETSTATE = &HF3 Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags 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 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 Sub Transparant(NamaForm As Form) Dim CLR As Long Dim Ret As Long NamaForm.BackColor = &HFF0000 CLR = &HFF0000 Ret = GetWindowLong(NamaForm.hwnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong NamaForm.hwnd, GWL_EXSTYLE, Ret SetLayeredWindowAttributes NamaForm.hwnd, CLR, 0, LWA_COLORKEY End Sub

Selamat mencoba..