''' <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
        MyStreamReader = New StreamReader(MyNetworkStream)
        MyStreamWriter = New StreamWriter(MyNetworkStream)
 
        While True
            MyLastIncomingMessage = MyStreamReader.ReadLine
        End While
 
    End Sub

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