22 | 06 | 2017

Disable/Enable Taskbar

Use the function below to enable or disable the taskbar.

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

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
 
Sub EnableTskbr(ByVal bEnable As Boolean)
    Dim hWnd_StartBar As Long
    hWnd_StartBar = FindWindow("Shell_TrayWnd", "")
    If bEnable Then
        EnableWindow hWnd_StartBar, True
    Else
        EnableWindow hWnd_StartBar, False
    End If
End Sub
 
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2284721
Latest Articles