Attribute VB_Name = "basHideShowTaskbar"
Option Compare Database
Option Explicit

      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 HideTaskbar1()
         handleW1 = FindWindowA("Shell_traywnd", "")
         Call SetWindowPos(handleW1, 0, 0, 0, _
         0, 0, TOGGLE_HIDEWINDOW)
      End Function

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