afficher et masquer la barre des taches

vb

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

Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_SHOWWINDOW As Long = &H40

Public Sub masquer()
Dim hwnd As Long
hwnd = FindWindow("Shell_traywnd", "")
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub

Public Sub afficher()
Dim hwnd As Long
hwnd = FindWindow("Shell_traywnd", "")
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub