pettab

I have this code running in a thread, I want it to continue listen on that port for more incoming connections but can't get it to work, how to do this? ' Must listen on correct port- must be same as port client wants to connect on. Const portNumber As Integer = 8000 Dim tcpListener As New TcpListener(portNumber) tcpListener.Start() Try 'Accept the pending client connection and return 'a TcpClient initialized for communication. Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient() Console.WriteLine("Connection accepted.") ' Get the stream Dim networkStream As NetworkStream = tcpClient.GetStream() ' Read the stream into a byte array Dim bytes(tcpClient.ReceiveBufferSize) As Byte networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize)) ' Return the data received from the client to the console. Dim clientdata As String = Encoding.ASCII.GetString(bytes) 'Console.WriteLine(("Client sent: " + clientdata)) ToDoFlash.Enqueue(clientdata) Dim responseString As String = "Tog emot: " & clientdata Dim sendBytes As [byte]() = Encoding.ASCII.GetBytes(responseString) networkStream.Write(sendBytes, 0, sendBytes.Length) Console.WriteLine(("Message Sent /> : " + responseString)) 'Any communication with the remote client using the TcpClient can go here. 'Close TcpListener and TcpClient. 'tcpClient.Close() 'tcpListener.Stop() Catch e As Exception 'Console.WriteLine(e.ToString()) End Try