Fijate que esa pregunta ya la hicieron y la respondieron en este mismo foro pero mas atras.
La respusta que ya dieron fué:
Espero que esto te sirva -)
coloca todo esto en un modulo
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Declare Function GetCurrentProcessId Lib kernel32 () As Long
Declare Function RegisterServiceProcess Lib kernel32 (ByVal dwProcessID _
As Long, ByVal dwType As Long) As Long
Public Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()
If Hide Then
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub
Luego haces un llamado desde un formulario de la siguiente forma
hideapp (true) 'para que no este en la lista de tareas.
hideapp (false) 'para aparecere en la lista de tareas.
