FTP Progress Bar

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

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