EX. CONCRETS ! CACHER LA BARRE DES TÂCHES ET LA REMETTRE

' A mettre dans un module

Dim handleW1 As Long

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

Private Declare Function SetWindowPos Lib "user32" _
(ByVal handleW1 As Long, _
ByVal handleW1InsertWhere As Long, ByVal w As Long, _
ByVal x As Long, ByVal y As Long, ByVal z As Long, _
ByVal wFlags As Long) As Long

Const TOGGLE_HIDEWINDOW = &H80
Const TOGGLE_UNHIDEWINDOW = &H40

Function HideTaskbar()
    handleW1 = FindWindowA("Shell_traywnd", "")
    Call SetWindowPos(handleW1, 0, 0, 0, _
         0, 0, TOGGLE_HIDEWINDOW)
End Function

Function UnhideTaskbar()
    Call SetWindowPos(handleW1, 0, 0, 0, _
         0, 0, TOGGLE_UNHIDEWINDOW)
End Function




' A mettre dans votre code de form :

' Pour l'enlever :
HideTaskbar
' Et pour la remettre :
UnhideTaskbar