Socket problem i win service

Hey,
jeg er ved at lave en win service der skal fungere som en socket server.
Jeg har fundet en del eksempler på nettet og de fungerer også fint som alm form app.
Men når jeg vil bruge det i et win service projekt går det galt.
Servicen hænger blot under opstart...

  Private Sub StartSocketServer()
        Dim serverSocket As New TcpListener(10003)
        Dim clientSocket As TcpClient
        Dim counter As Integer

        serverSocket.Start()
        'msg("Server Started")
        counter = 0
        While (True)
            counter += 1
            clientSocket = serverSocket.AcceptTcpClient()
            'msg("Client No:" + Convert.ToString(counter) + " started!")
            Dim client As New handleClinet
            client.startClient(clientSocket, Convert.ToString(counter))
        End While

        clientSocket.Close()
        serverSocket.Stop()
        'msg("exit")
        'Console.ReadLine()
    End Sub

er ret sikker på at det går galt i while løkken... men hvordan laver jeg så så muligheden er der for flere client forbindelser af gangen ?
Med winsock kunne man køre index på de forskellige connections, men det er ikke muligt her.

/Anders