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