Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("127.0.0.1", 80)
        Dim nwStream As NetworkStream = tcpClient.GetStream()
 
        ' irgendeine Nachricht senden
        Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes( _
          "Irgendeine Nachricht")
        nwStream.Write(sendBytes, 0, sendBytes.Length)
 
        ' nwstream in  byte buffer
        Dim bytes(tcpClient.ReceiveBufferSize) As Byte
        nwStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
 
        ' gebe die transferierten daten aus
        Dim returndata As String = System.Text.Encoding.ASCII.GetString(bytes)
        rtbmessage.Text = "Message: " + returndata
 
        Console.ReadLine()