Membuat Animasi Form Transparan di Visual Basic 6.0

Kali ini saya akan berbagi bagaimana cara membuat form pada Visual Basic 6.0 menjadi transparan pada saat dijalankan.

Tahapan-tahapannya adalah :

1. Ubah visible form menjadi false
2. letakkan sebuah timer pada form
3. pada timer seting interval menjadi 100 dan enable menjadi false
4. lalu masuk ke "View Code" pada form
5. Tulis kode program di bawah ini :

Option Explicit
Const LWA_BOTH = 3
Const LWA_ALPHA = 2
Const LWA_COLORKEY = 1
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000
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
Dim Mulaitransparan As Integer

6. Lalu buat Sub FormTransparan(hWndtrans As Long, Transp As Integer)
7. Tulis kode program dibawah ini

Dim winlong As Long
winlong = GetWindowLong(hWndtrans, GWL_EXSTYLE)
SetWindowLong hWndtrans, GWL_EXSTYLE, winlong Or WS_EX_LAYERED
SetLayeredWindowAttributes hWndtrans, RGB(255, 255, 0), Transp, LWA_ALPHA

8. lalu double klik timer 1 atau pada Private Sub Timer1_Timer()
9. Tulis kode Program dibawah ini

Mulaitransparan = Mulaitransparan + 5
If Mulaitransparan > 255 Then Mulaitransparan = 255: Timer1.Enabled = False
FormTransparan Me.hWnd, Mulaitransparan
Me.Show

10. lalu double klik form atau pada Private Sub Form_Load()

Timer1.Enabled = True

Selamat Mencoba !!