FTP Progress Bar

[Eyal]

HI,
I'm making an FTP client that can send and recieve files. I can't figure out how to make a progress bar. how do i obtain information about the Puts ans Gets.
for example bytes recieved bytes sent during the actual download or upload.
im using the Inet control.

Thanks very much,
Eyal

[dj4]

I'm using ProgressBar this way.

- Dj4

Public Sub GetFile()

Inet1.Execute , "GET Test.txt C:\Temp\Test.txt

FileTransfer

End Sub

Public Sub FileTransfer()

'ProgressBar1.Max = 35000
ProgressBar1.Value = 0.05

Do While Inet1.StillExecuting

If ProgressBar1.Value < ProgressBar1.Max - 1 Then
ProgressBar1.Value = ProgressBar1.Value + 0.05
End If

DoEvents

Loop

ProgressBar1.Value = ProgressBar1.Max

End Sub