Membuat Taskbar Menjadi Transparan

Membuat taskbar menjadi transparan,,, ! Wah bagus juga ni kalau di aplikasikan dalam pembuatan virus,,,
Ha3 tapi terserah andalah ingin kalian gunakan dalam bentuk apa ! entah hanya untuk kerjain Komputer temanya
atau apalah,, .
Loh kok kesanya negatif terus sich,,, yaaa terserah andalah ngomongnya apa ,,, !
Udah udah kok ribut terus sich masalah tujuanya ,,, ! terus kapan mulai coding nie .... ?
Sabar2 dong nie baru dimulai. !

Pertama buat satu module dan dalam module tersebut isikan kode ini

Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = -20
Public Const WS_EX_LAYERED = &H80000
Public Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Public Const LWA_ALPHA = &H2
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Kemudian Masukkan Dua Button didalam Form1 kita buat dan berikan nama pada button 1 "Sembunyikan Taskbar"
dan pada button dua "Munculkan Taskbar"

Masukkan kode ini pada form1

Dim handle_Task As Long 'Mendefinisikan variable handle_Task dengan tipe long
Dim transparansi As Long 'Mendefinisikan variable transparnsi dengan tipe long
Private Sub Command1_Click()
handle_Task = FindWindow("Shell_traywnd", "")
'mencari handle pada taskbar
transparansi = 255
'Memasukkan nilai 255 pada variable transparansi
If transparansi = 255 Then
'jika nilai transparansi = 255 maka kerjakan perintah selanjutnya
SetWindowLong handle_Task, GWL_EXSTYLE, WS_EX_LAYERED
' Menset handle pada taskbar
For transparansi = 255 To 0 Step -2
' Mengurangi 2 secara terus menerus pada variable transparansi sampai mencapai nilai 0
SetLayeredWindowAttributes handle_Task, 0, transparansi, LWA_ALPHA '
' Membuat taskbar transparan apabila nilai transparansi adalah 0
Next ' Akhir dari For
End If 'Akhir dari if
End Sub
Private Sub Command2_Click()
SetWindowLong handle_Task, GWL_EXSTYLE, WS_VISIBLE
' Mengembalikan nilai transparansi pada taskbar seperti semula
End Sub

Akhirnya selesai juga dech,, karena pada kode di atas sudah diterangkan penjelesan code satu persatu
jadi ngaak usah dijelasin lagi nggak pa2 kan... Ha3

Huuuuh !! capek ku jelasinya ,,

ya dah di coba sendiri yaaa !