Как убрать программу из списка запущенных приложений - VB (173144)

Private Declare Function GetCurrentProcess Lib 'kernel32' () As Long
 Const RSP_SIMPLE_SERVICE = 1
 Const RSP_UNREGISTER_SERVICE = 0
Public Sub HideApp(lbValue As Boolean)
 
Dim lProcessID As Long
Dim lReturn As Long
 
lProcessID = GetCurrentProcessId()
 
If lbValue Then
lReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
Else
lReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End If
 
End Sub
 
Private Sub form1_load()
 HideApp True
End Sub