Hiding Task bar

[Aaron Young]

The ShowWindow API works just as well:

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Private Sub Command1_Click()
    Static bHidden As Boolean
    Dim lHwnd As Long
    
    lHwnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)
    Call ShowWindow(lHwnd, IIf(bHidden, SW_SHOW, SW_HIDE))
    bHidden = Not bHidden
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]