DisabAltCCanc

Public TaskBarhWnd As Long
Public IsTaskBarEnabled As Integer
Public TaskBarMenuHwnd As Integer
'

'Copiare in un Modulo

'

Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long,ByVal fEnable As Long) As Long
Declare Function IsWindowEnabled Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Public Sub DisableTaskBar()
Dim EWindow As Integer
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If
End Sub

Public Sub EnableTaskBar()
If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If
End Sub

Private Sub Command1_Click()
DisableTaskBar
FastTaskSwitching False
End Sub

Private Sub Command2_Click()
EnableTaskBar
FastTaskSwitching True
End Sub