Отключение Контрол альт дилит , альт ф4,контрол эскейп. - VB

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

Сабжь + а какие ещё клавные команды есть? и как их отключить? :-) (не для вируса. просто для интересу)

Решение задачи: «Отключение Контрол альт дилит , альт ф4,контрол эскейп.»

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

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> BlockInput Lib <font color="teal">"user32"</font> (<font color="blue">ByVal</font> fBlock <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Sub</font> Sleep Lib <font color="teal">"kernel32"</font> (<font color="blue">ByVal</font> dwMilliseconds <font color="blue">As</font> <font color="blue">Long</font>)

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Activate()
    DoEvents
    <font color="00AA00">'block the mouse and keyboard input</font>
    BlockInput True
    <font color="00AA00">'wait 10 seconds before unblocking it</font>
    Sleep <font color="darkblue"><b>10000</b></font>
    <font color="00AA00">'unblock the mouse and keyboard input</font>
    BlockInput False
<font color="blue">End</font> <font color="blue">Sub</font>

                        