WriteByte en FtpWebResponse

[cristian_fg]

Hola estoy subiendo archivos con ftp y necesito utilizar un progressbar.
de forma local lo hago de esta manera:

Dim fi As New IO.FileInfo(v_nomfinal)
Dim sr As New IO.FileStream("C:\diario\" + v_nomfinal, IO.FileMode.Open)

Dim sw As New IO.FileStream("ftp://ftp.server.net/public_html/pruebavb/nota/" + v_nomfinal, IO.FileMode.Open)


Dim len As Long = sr.Length - 1
For i As Long = 0 To len
sw.WriteByte(sr.ReadByte)
If i Mod 1000 = 0 Then
ProgressBar1.Value = i * 100 / len()
Application.DoEvents()
End If
Next
ProgressBar1.Value = 0
sr.Close()
sw.Close()

Ahora bien vi que FileStream es para uso local, que debo usar FtpWebResponse, pero no logro hacerlo funcionar ya que por ejemplo no cuenta con WriteByte para calcular el paso.

Espero haber sido claro y me puedan ayudar.
Gracias