Problem with TCP test program

it's possible to lost information by the tcp. when delivering a big pack of message, it takes time, and when the server or client doesn't receive this message, it would lost. one solution for message lost is to use sleep function.
here is an example with sleep to transfer big file, hope it works for you
          Do While z >= 1024 * 63 + 3
            If i = 0 Then ReDim File(1024 * 63 + 255)
            If i > 0 Then ReDim File(1024 * 63 + 3)
            Dim L As Integer = Encoding.Unicode.GetBytes(name, 0, name.Length, File, 0)
            If i = 0 Then Read.Read(File, 256, File.Length - 256) : z = z - File.Length + 257
            If i > 0 Then Read.Read(File, 4, File.Length - 4) : z = z - File.Length + 5
            UDPSock.Send(File, File.Length, EndPoint) : Sleep(200)
            name = "\" : i += 1
          Loop