Private Sub StartServerRead()
        Dim listener As New TcpListener(MyIPEndpoint)
        listener.Start()
 
        While True
            Dim client As TcpClient = listener.AcceptTcpClient()
 
            ' Verbindung in neuem Thread verarbeiten
            Dim thread As New Thread( _
                Sub()
                    HandleTcpClient(client)
                End Sub)
            thread.Start()
        End While
    End Sub
 
    Private Sub HandleTcpClient(client As TcpClient)
        Using client
            Using stream As NetworkStream = client.GetStream()
                Dim myStreamReader As New StreamReader(stream, _
                  Encoding.GetEncoding(1252))
                Dim myStreamWriter As New StreamWriter(stream, _
                Encoding.GetEncoding(1252))
 
                ' Solange Zeilen lesen, bis Gegenüber die Verbindung trennt
                While True
                    Dim line As String = myStreamReader.ReadLine()
                    If line Is Nothing Then Exit While 'Stream-Ende
 
                    'Zeile verarbeiten...
                    Debug.WriteLine("Zeile: " & line)
                End While
 
                ' Antwort senden und Verbindung trennen
                myStreamWriter.WriteLine("Quittung")
                myStreamWriter.Flush()
            End Using
        End Using
    End Sub