_NetStream as Io.Stream = new NetworkStream(Sock)  'Einfach nur ein 
' NetworkStream-Exemplar erstellen, dass einen verbundenen Socket besitzt
 
if EncryptionNeeded then
   _NetStream = new CryptoStream(_NetStream, AES.CreateEncryptor, _
     CryptoStreamMode.Write) 'AES ist ein Rijndael- Exemplar
end if
 
 
'Senden von Daten
Dim W As New System.IO.BinaryWriter(_NetStream, System.Text.Encoding.Unicode)
W.Write(_Stream.Length) '_Stream ist ein Stream, der die zu sendenden Bytes 
' enthält (Meistens ein MemoryStream
W.Flush()
 
 'Alle Daten kopieren
Dim B(8191) As Byte
Do
       Dim RB As Integer = _Stream.Read(B, 0, B.Length) '_Stream ist ein 
       ' Stream, der die zu sendenden Bytes enthält (Meistens ein MemoryStream
       If RB = 0 Then Exit Do
        _NetStream.Write(B, 0, RB)
Loop

_NetStream as Io.Stream = new NetworkStream(Sock)  'Einfach nur ein 
' NetworkStream-Exemplar erstellen, dass einen verbundenen Socket besitzt
 
if EncryptionNeeded then
   _NetStream = new CryptoStream(_NetStream, AES.CreateDecryptor, _
     CryptoStreamMode.Read) 'AES ist ein Rijndael- Exemplar
end if
 
 
'Empfangen von Daten
Dim R As New System.IO.BinaryReader(_NetStream, System.Text.Encoding.Unicode)
Dim DataLength As Long = R.ReadInt64
 
'Kopieren der Bytes aus dem NetStream, in den Stream (_Stream), der die zu 
' empfangenen Bytes speichert z.B. MemoryStream oder FileStream
Dim B(8191) As Byte
Do
      Dim RB As Integer = R.Read(B, 0, CInt(IIf(DataLength > B.Length, _
        B.Length, DataLength)))
      DataLength -= RB
       _Stream.Write(B, 0, RB)
 
Loop Until DataLength = 0