VB Code:
Public Function receive() As String
Dim stringBuffer As String
Dim recvBuffer1(tcpClient.ReceiveBufferSize) As Byte
Dim recvBuffer2(tcpClient.ReceiveBufferSize) As Byte
Dim recvBuffer3(tcpClient.ReceiveBufferSize) As Byte
Dim recvBuffer4(tcpClient.ReceiveBufferSize) As Byte
Dim recvBuffer5(tcpClient.ReceiveBufferSize) As Byte
ns.Read(recvBuffer1, 0, CInt(tcpClient.ReceiveBufferSize))
stringBuffer = Encoding.ASCII.GetString(recvBuffer, 0, CInt(tcpClient.ReceiveBufferSize))
ns.Read(recvBuffer2, 0, CInt(tcpClient.ReceiveBufferSize))
stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer2, 0, CInt(tcpClient.ReceiveBufferSize))
ns.Read(recvBuffer3, 0, CInt(tcpClient.ReceiveBufferSize))
stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer3, 0, CInt(tcpClient.ReceiveBufferSize))
ns.Read(recvBuffer4, 0, CInt(tcpClient.ReceiveBufferSize))
stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer4, 0, CInt(tcpClient.ReceiveBufferSize))
ns.Read(recvBuffer5, 0, CInt(tcpClient.ReceiveBufferSize))
stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer5, 0, CInt(tcpClient.ReceiveBufferSize))
Return stringBuffer
End Function