Hide and Show Taskbar

Kali ini saya mencoba membuat Hide and Show Taskbar dengan Visual Basic. Program ini hanya untuk membuat komputer anda lebih menarik.


Caranya mudah ko', cukup kamu ikuti aja langkah-langkah berikut, oce...!
1. Buat form baru dan tambahkan 2 CommandButton dan atur hingga seperti gambar diatas.
2. Letakkan kode dibawah ini.

Private Declare Function 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) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Function Task(xhide As Boolean)
Dim Thwnd As Long
If xhide = True Then
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Else
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Function

Private Sub Form_Load()
Command1.Caption = "Hide"
Command2.Caption = "Show"
End Sub

3. don't forget diSimpan ya....!

Selamat Mencoba...!