Как спрятать процесс от диспетчера?

Option Explicit
Public Enum EnumWindowsVersion
  wvWindows32 = 0
  wvWindows9x = 1
  wvWindowsNT = 2
End Enum
 
Private Declare Function GetVersionEx Lib 'kernel32' Alias 'GetVersionExA' (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type
Private m_OSInfo As OSVERSIONINFO
 
Public Property Get Version2() As String
  Version2 = m_OSInfo.szCSDVersion
End Property
 
Public Property Get Build() As Long
  Build = m_OSInfo.dwBuildNumber
End Property
 
Public Property Get Minor() As Long
  Minor = m_OSInfo.dwMinorVersion
End Property
 
Public Property Get Major() As Long
  Major = m_OSInfo.dwMajorVersion
End Property
 
Public Property Get Version() As EnumWindowsVersion
  Select Case m_OSInfo.dwPlatformId
    Case 0
      Version = wvWindows32
    Case 1
      Version = wvWindows9x
    Case 2
      Version = wvWindowsNT
  End Select
End Property
 
Private Function m_Load()
  Dim Ret&
  m_OSInfo.dwOSVersionInfoSize = Len(m_OSInfo)
  Ret& = GetVersionEx(m_OSInfo)
  If Ret& = 0 Then
    Err.Raise vbObjectError + 100, 'GetVersionEx API', 'Error Getting Version Information'
    Exit Function
  End If
End Function
 
Private Sub Class_Initialize()
  m_Load
End Sub

Option Explicit
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 HideApplication()
    Dim ws As cWinVersion
    Set ws = New cWinVersion
  Select Case ws.Version
      Case EnumWindowsVersion.wvWindows9x
      MakeMeService
          Case EnumWindowsVersion.wvWindowsNT
      App.Title = ''
  End Select
End Sub
Private Sub MakeMeService()
  Dim PId As Long, regserv As Long
  PId = GetCurrentProcessId()
  regserv = RegisterServiceProcess(PId, RSP_SIMPLE_SERVICE)
End Sub
 
Private Sub UnMakeMeService()
  Dim PId As Long, regserv As Long
  PId = GetCurrentProcessId()
  regserv = RegisterServiceProcess(PId, RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Form_Load()
 
Dim cH As New cAppHider
cH.HideApplication
 
End Sub