Visual Basic - ProgressBar Enviar Archivo

Hola muy buenas a todos, les cuento, tengo un progressbar en un formulario desde el cual envio un archivo a internet, querria saber como puedo hacer que el progressbar vaya aumentando a medida que se va enviando el archivo. A continuacion os detallo como hago el envio.

RutaOrigenBase = "C:Base.mdb"
RutaDestinoBase = "/Base.mdb"

Inet1.Execute , "Put " & LCase(RutaOrigenBase) & " " & LCase(RutaDestinoBase)

Do While Inet1.StillExecuting
DoEvents
lll.Caption = Inet1.ResponseCode
DoEvents
DoEvents
DoEvents
lll.Refresh
DoEvents
DoEvents
Me.Refresh
DoEvents
DoEvents
Loop

Me seria de gran ayuda cualquier informacion que me puedan facilitar. Muchas gracias por adelantado. Un saludo.