4.BarPicture
   ' make background picture darker and less saturated
   vbalProgressBar4.ModifyPicture 0.6, 0.2
   
End Sub

Private Sub tmrUpd_Timer()
Dim ctl As Control
   For Each ctl In Me.Controls
      If TypeOf ctl Is vbalProgressBar Then
         With ctl
            .Value = .Value + .Tag
            If ctl.ShowText Then
               If ctl.Name = "CSProgressBar4" Then
                  .Text = "Reading: " &amp; .Value &amp; " of " &amp; .Max
               Else
                  .Text = CLng(.Per