Progress bar for the shelled process

[Merri]

Doing a real progress bar would require the shelled program to somehow be able to return it's progress to your program; in this case what you're requesting is impossible (or for the least very hard to do without further knowledge of internals of the shelled program). However, you could do a progress bar that doesn't really show anything else than that a progress is going on. I guess you've sometime seen a progress bar that has about 100 pixels wide "bar" that loops from left to right, bar coming in from the left and going out of the right, until everything is done?


Edit!
A poor man's sample: add Picture1, Label1 into Picture1 and a Timer1 to a new project. Paste this code:

Option Explicit
 
Private Sub Form_Load()
    Picture1.ScaleMode = vbPixels
    Picture1.BackColor = vbHighlightText
    Label1.BackColor = vbHighlight
    Label1.Caption = vbNullString
    Label1.Move -100, 0, 100, Picture1.ScaleHeight
    Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
    If Label1.Left <= Picture1.ScaleWidth Then
        Label1.Left = Label1.Left + 5
    Else
        Label1.Left = -100
    End If
End Sub