''' <summary>
    ''' Der Server wartet hier auf die Clientverbindung und verarbeitet die 
    ' Nachrichten.
    ''' </summary>
    Sub ServerRead()
 
        Server = New TcpListener(MyIPEndpoint)
        Server.Start()
 
        Client = Server.AcceptTcpClient
 
        MyNetworkStream = Client.GetStream
 
        Do
            MyStreamReader = New StreamReader(MyNetworkStream)
            MyStreamWriter = New StreamWriter(MyNetworkStream)
 
            Do While MyStreamReader.Peek() >= 0
                MyLastIncomingMessage = MyLastIncomingMessage & Chr( _
                  MyStreamReader.Read)
            Loop
            If Not MyLastIncomingMessage = Nothing Then
                MyLastIncomingMessage = Nothing
                MyStreamWriter.WriteLine("Quittung")
                MyStreamWriter.Flush()
            End If
        Loop
 
    End Sub

Ich verwende Micorsoft Windows 7 (64Bit) und Visual Studio 2005 Professional.