' Declarations
' Public Const SWP_HIDEWINDOW = &H80 Public Const SWP_SHOWWINDOW = &H40 Public Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Public 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 Public Sub DisplayTaskBar(ByVal bVal As Boolean) Dim lTaskBarHWND As Long Dim lRet As Long Dim lFlags As Long On Error GoTo vbErrorHandler lFlags = IIf(bVal, SWP_SHOWWINDOW, SWP_HIDEWINDOW) lTaskBarHWND = FindWindow("Shell_traywnd", "") lRet = SetWindowPos(lTaskBarHWND, 0, 0, 0, 0, 0, lFlags) If lRet < 0 Then ' ' Handle error from api ' End If Exit Sub vbErrorHandler: ' ' Handle Errors here ' End Sub |