' Verbinden...
            Dim tcp As New TcpClient("www.vbarchiv.net", 80)
 
            'Verbindung hergestellt
            Dim stream As NetworkStream = tcp.GetStream()
 
            'Hier kann jetzt z.B. auch ein Sendethread gestartet werden
 
            'Lesen
            Dim buffer As Byte() = New Byte(4095) {}
            Dim bytesRead As Integer
            While True
                bytesRead = stream.Read(buffer, 0, buffer.Length)
                If bytesRead <= 0 Then Exit While
 
                ' Irgendwas mit den Bytes machen...
            End While
 
            ' Verbindung wurde geschlossen