Hvordan opretter man en SocketServer (TCP)

Du opretter og læser fra en server socket med noget a la:

        Dim server As TcpListener = New TcpListener (IPAddress.Any, 1234)
        server.Start
        Dim client As TcpClient = server.AcceptTcpClient
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim line As String = rdr.ReadLine
        While Not (line Is Nothing)
            ' process line
            line = rdr.ReadLine
        End While
        rdr.Close
        server.Stop

men hef forstår ikke detaljerne i din kontekst.

Kommet videre ?