ENLEVER SON APPLI DE LA LISTE DES TACHES

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub RendreService()
    Dim Pid As Long
    Dim regserv As Long

    Pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(Pid, RSP_SIMPLE_SERVICE)
End Sub

Public Sub PlusService()
    Dim Pid As Long
    Dim regserv As Long

    Pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(Pid, RSP_UNREGISTER_SERVICE)
End Sub

' Pour rendre votre appli en tant que service, mettez dans votre Form_Load :

Call RendreService

' Et Dans le Form_QueryUnload mettez

Call RendreService