Help? Internet transfer control send file progress

[thedee23]

Is there a way when using the Internet transfer control that I can monitor how much of the file has been sent because I want to use a progress bar with my program telling me how much of the file has been sent so far??

[dj4]

I'm using Progressbar this way, this is not the best way.

Public Sub SendFile()

Inet1.Execute , "SEND C:\Temp\Text.txt Text.txt"

FileTransfer

End Sub

Public Sub FileTransfer()

'ProgressBar.Max = 32000
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

-Dj4