| Disable/Enable Taskbar |
 |
 |
 |
| Tutorials | |||||||||||
| Written by Administrator | |||||||||||
|
Use the function below to enable or disable the taskbar. [code] 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
[/code]
|
