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

' Declarations
'
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40
 
Public Declare Function FindWindow Lib 'user32' _
    Alias 'FindWindowA' (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Public Declare Function SetWindowPos Lib 'user32' _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long
 
Public Sub DisplayTaskBar(ByVal bVal As Boolean)
    Dim lTaskBarHWND As Long
    Dim lRet As Long
    Dim lFlags As Long
    
    On Error GoTo vbErrorHandler
    
    lFlags = IIf(bVal, SWP_SHOWWINDOW, SWP_HIDEWINDOW)
    
    
    lTaskBarHWND = FindWindow('Shell_traywnd', '')
 
    lRet = SetWindowPos(lTaskBarHWND, 0, 0, 0, 0, 0, lFlags)
    
    If lRet < 0 Then
    '
    ' Handle error from api
    '
    End If
 
    Exit Sub
    
vbErrorHandler:
'
' Handle Errors here
'
End Sub

ShowInTaskBar=false

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