HideTaskBar (4)

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
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40
'Routine per nascondere o visualizzare la TaskBar

Public Sub ShowTaskBar(x As Boolean)
Select case x
Case=False
Dim wHandle1 As Long
wHandle1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(wHandle1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Case=True
Dim wHandle2 As Long
wHandle2 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(wHandle2, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Select
End Sub