Probleme arret service

Bonjour,

J'ai un petit probleme..

Lorsque je veux arreter mon service, la barre de progression est anormalement longue... Et le service ne s'arrete pas correctement..

Voici mes méthodes OnStart et OnStop :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Protected Overrides Sub OnStart(ByVal args() As String)
        'Ajoutez ici le code pour démarrer votre service. Cette méthode doit
        'démarrer votre service.
 
        If Not System.IO.File.Exists(Application.StartupPath & "\ERTool.ini") Then
            f.EcritureConfig(Application.StartupPath & "\CSV\", Application.StartupPath & "\Guardeo Vision\ExternalFiles\")
        End If
 
 
        MonThreadPresenceBase.Start()
        MonThreadERTagConnect.Start()
        MonThreadMsgConnect.Start()
 
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Ajoutez ici le code pour effectuer les destructions nécessaires à l'arrêt de votre service.
 
        MonThreadPresenceBase.Abort()
        MonThreadERTagConnect.Abort()
        MonThreadMsgConnect.Abort()
 
        'PIPE SERVERS
        serverERTag.Disconnect()
        serverMonitor.Disconnect()
 
 
    End Sub

Ai-je mal fermé les threads actifs? Comment arreter le programme directement lorsque l'on clique sur "Arrêt" sans devoir attendre 3000 ans?

Merci