Hacer que TCPListener quede esperando conecciones

[dschell]

Hola

estoy desarrollando un servicio TCP que acepte conecciones cliente

al correr la app server , se ejecuta este codigo

Dim Client As TcpClient = Listener.AcceptTcpClient()

y cuando ejecuto el cliente, todo funciona bien, se conecta bien y la app server recibe lo que le manda el cliente

el problema lo tengo cuando cierro la app cliente y vuelvo a ejecutarla (sin cerrar la app server ): al volver a ejecutarla se realiza otra coneccion

Client.Connect(IPAddress.Parse("127.0.0.1"), 11000)

pero la app server ya no recibe esa coneccion, no recibe lo que le manda el cliente

necesito saber como hacer que la app server quede siempre esperando en un puerto, para que cada coneccion sea recibida

Cualquier ayuda será bienvenida