Çok garip. Bizde parola istemişti.
Public Class Form1'e
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim taskBar As Integer
yazdıktan sonra, kontrol edeceğim kısma (ben buton kullandım)
taskBar = FindWindow("Shell_traywnd", "")
Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW))
yazdım ve çalıştı tam tersi için de SWP_SHOWWINDOW yazan yere SWP_HIDEWINDOW yazmak yeterli oluyor.