Убрать процесс из диспетчера задач - VB

Формулировка задачи:

Здравствуйте. Пишу шуточную программку. Нужно: 1) отключить выключение программки комбинацией Alt+F4 2) убрать программку из Диспетчера задач 3) назначить выключение комбинацией Alt+X (хочу добиться того чтобы ее нельзя было никак вырубить кроме моей комбинации и кнопки "Выход" на последней форме)))

Решение задачи: «Убрать процесс из диспетчера задач»

textual
                            Листинг программы 
                        

                            Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10 ' если вдруг понадобиться shift
Public Const VK_RCONTROL = &HA3
' обьявляем нужные API
Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'Если хук установлен
    If idHook < 0 Then
        ' вызываем
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'проверяем нажатие Левого Alt + X
         If GetAsyncKeyState(vbKeyMenu) = -32768 And GetAsyncKeyState(vbKeyX) = -32768 Then
            ' Печатаем если нажато
            'Form1.Print "Alt + X нажали ..."
            MsgBox ("Вы нажали Alt + X")
        End If
        'End If
        
        'вызывем следующий хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function
                        