Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As LongPrivate 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' show/hide the programs in the taskbar, according to the bShow parameter' Example:' - hide the programs: ShowProgramsInTaskbar False' - show the programs: ShowProgramsInTaskbarPublic Sub ShowProgramsInTaskbar(Optional ByVal bShow As Boolean = True) Dim lShellHandle As Long Dim lRebarHandle As Long Dim lCtlHandle As Long ' get the handle of the taskbar lShellHandle = FindWindow("Shell_TrayWnd", "") ' get the handle of the rebar control lRebarHandle = FindWindowEx(lShellHandle, 0, "ReBarWindow32", vbNullString) lCtlHandle = FindWindowEx(lRebarHandle, 0, "MSTaskSwWClass", vbNullString) ' hide or show the tab control ShowWindow FindWindowEx(lCtlHandle, 0, "SysTabControl32", vbNullString), _ Abs(bShow)End Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many