Dim Client As New Net.Sockets.TcpClient
    '...
 
    Private Sub ReceiverThread()
        Dim requestCount As Integer
        Dim i As Long
        Dim read As Integer
        Dim networkStream As NetworkStream = Client.GetStream()
        Client.ReceiveBufferSize = 1024
        Dim bytesFrom(Client.ReceiveBufferSize - 1) As Byte
        Dim file(2688000) As Byte
 
        While (True)
            Try
                Do
                    i = networkStream.Read(bytesFrom, 0, CInt( _
                      Client.ReceiveBufferSize))
                    read += i
                    If i > 0 Then
                        Buffer.BlockCopy(bytesFrom, 0, file, read, _
                          bytesFrom.Length, bytesFrom.Length)
                    End If
                Loop While i > 0
                Application.DoEvents()
                If i = 0 And read > 0 Then
                    Me.Invoke(New WriteTextDelegate(AddressOf WriteText), file, _
                      "Write received file to filestream"))
 
                    Exit While
                end if
            Catch ex As Exception
                MsgBox(ex.Message)
                Exit While
            End Try
        End While
    End Sub