[VB6] Nascondere o rinominare processo

[kalosjo]

Per nascondere un processo ho trovato questo:

Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" _
                 (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Sub HideApp(lbValue As Boolean)
    Dim lngProcessID As Long
    Dim lngReturn As Long
    
    lngProcessID = GetCurrentProcessId()
    
    If lbValue Then
        lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
    Else
        lngReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
    End If
End Sub