20 | 09 | 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
        EnableWindow hWnd_StartBar, False
    End If
End Sub

Sign up now and upload your code to the website.

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