If Progress > 100 Then StatusBar1.Panels(1).Picture = ImageList1.ListImages( _
  1).Picture
If Progress > 200 Then StatusBar1.Panels(1).Picture = ImageList1.ListImages( _
2).Picture
.....usw.

If ProgressBar1 = -1 Then
ProgressBar1.Value = 100
Else:
ProgressBar1.Value = (Progress / ProgressMax) * 100
End If

Public Function AddProgBar(pb As ProgressBar, sb As StatusBar, lPan As Long)
 
sb.Align = 2
sb.Refresh
 
pb.ZOrder 0
pb.Appearance = ccFlat
pb.BorderStyle = ccNone
 
pb.Left = sb.Panels(lPan).Left + 25
pb.Width = sb.Panels(lPan).Width - 45
pb.Top = sb.Top + 45
pb.Height = sb.Height - 75
 
End Function