Породить неубиваемый процесс - VB

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

Добрый день всем! Написал программу (Локер для компьютера ребенка) Суть работы. Через ТимВьювер разблокируется компьютер, за которым, ребенок может играться час +- 15 минут. Чтобы не держать в голове время необходимой блокировки написал программу, которая через час "лочит" комп. Ребенок уже не маленький и может догадаться как выгрузить "не нужный "процеесс из памяти. В этой связи вопрос, реально ли сделать невыгружаемый (тоесть неудаляемый через Диспетчер Задач) процесс на VB6 ?

Решение задачи: «Породить неубиваемый процесс»

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

                            Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function ZwSetInformationProcess Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long, ByVal p4 As Long) As Long
 
Private Sub Form_Load()
ZwSetInformationProcess GetCurrentProcess(), &H21&, VarPtr(&H8000F129), &H4&
End Sub
                        