-
I don't know how you can add progressbar in statusbar but here is code how you using progressbar.
Public Sub GetFtpFile()
Inet1.Execute , "GET Text.txt C:\Temp\Text.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
- Dj4
-
Sorry I mixed up progressbar & statusbar...
