[by_gangster]

mrcnn,

Код:

 Dim bts() As Byte = myStreamReader.ReadBytes(BufferSize)
            If bts.Length = 0 Then Exit Do
            IO.File.WriteAllBytes(FlName, bts)
            all.AddRange(bts)
            ' Вызов события Идет прием данных
            ReceiveProgressInvoke(all.Count)
        Loop
        'DownloadSuccess(all)'
    End Sub

Так сделал в двух местах. Всё равно ошибка...