VB Code:
  1. Public Function receive() As String

  2.         Dim stringBuffer As String

  3.  
  4.         Dim recvBuffer1(tcpClient.ReceiveBufferSize) As Byte

  5.         Dim recvBuffer2(tcpClient.ReceiveBufferSize) As Byte

  6.         Dim recvBuffer3(tcpClient.ReceiveBufferSize) As Byte

  7.         Dim recvBuffer4(tcpClient.ReceiveBufferSize) As Byte

  8.         Dim recvBuffer5(tcpClient.ReceiveBufferSize) As Byte

  9.         

  10.       

  11.  
  12.         ns.Read(recvBuffer1, 0, CInt(tcpClient.ReceiveBufferSize))

  13.         stringBuffer = Encoding.ASCII.GetString(recvBuffer, 0, CInt(tcpClient.ReceiveBufferSize))

  14.  
  15.         ns.Read(recvBuffer2, 0, CInt(tcpClient.ReceiveBufferSize))

  16.         stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer2, 0, CInt(tcpClient.ReceiveBufferSize))

  17.  
  18.         ns.Read(recvBuffer3, 0, CInt(tcpClient.ReceiveBufferSize))

  19.         stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer3, 0, CInt(tcpClient.ReceiveBufferSize))

  20.  
  21.         ns.Read(recvBuffer4, 0, CInt(tcpClient.ReceiveBufferSize))

  22.         stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer4, 0, CInt(tcpClient.ReceiveBufferSize))

  23.  
  24.         ns.Read(recvBuffer5, 0, CInt(tcpClient.ReceiveBufferSize))

  25.         stringBuffer = stringBuffer + Encoding.ASCII.GetString(recvBuffer5, 0, CInt(tcpClient.ReceiveBufferSize))

  26.  
  27.          Return stringBuffer

  28.  
  29. End Function

Anyone know how to loop this ? for your information, the number of receive buffer is LOOP depending on the networkstream. If data haven't finish read, it's shall not create another receive buffer. anyone ?