Public Function ReciveBytes() As Byte()
Dim tmpBytes(TCPClient.ReceiveBufferSize) As Byte
Stream.Read(tmpBytes, 0, TCPClient.ReceiveBufferSize)
Return tmpBytes
End Function
 
Public Sub SendBytes(ByVal bytMessage() As Byte)
Dim tmpBytes(TCPClient.SendBufferSize) As Byte
tmpBytes = bytMessage
Stream.Write(tmpBytes, 0, tmpBytes.Length)
End Sub

 
Public Function ReciveBytes(ByVal intIndex As Integer) As Byte()
Dim tmpBytes(Client(intIndex).ReceiveBufferSize) As Byte
Stream(intIndex).Read(tmpBytes, 0, Client(intIndex).ReceiveBufferSize)
 
If tmpBytes(0) = Nothing Then Return Encoding.ASCII.GetBytes("Error") : Exit _
  Function
 
InTraffic += tmpBytes.Length
TotalTraffic = InTraffic + OutTraffic
lblTotalTraffic.Text = GetSize(TotalTraffic)
lblTotalRecieved.Text = GetSize(InTraffic)
 
Return tmpBytes
End Function
 
Public Sub SendBytes(ByVal bytBytes() As Byte, ByVal intIndex As Integer)
Dim tmpBytes(Client(intIndex).SendBufferSize) As Byte
tmpBytes = bytBytes
 
OutTraffic += tmpBytes.Length
TotalTraffic = OutTraffic + InTraffic
lblTotalTraffic.Text = GetSize(TotalTraffic)
lblTotalSent.Text = GetSize(OutTraffic)
 
Stream(intIndex).Write(tmpBytes, 0, tmpBytes.Length)
End Sub

 For i As Integer = 0 To 100 : SendBytes(Encoding.ASCII.GetBytes("Hallo" & i)) _
   : Next

MfG