mdAnimate.Caption = "&amp;Stop"
   End If
End Sub

Private Sub cmdStep_Click()
   tmrUpd_Timer
End Sub

Private Sub Form_Load()
   ' copy bar picture to background picture:
   Set vbalProgressBar6.BarPicture = vbalProgressBar6.Picture
   ' make bar picture lighter and more saturated:
   vbalProgressBar6.ModifyBarPicture 1.7, 2
   ' make background picture less saturated
   vbalProgressBar6.ModifyPicture 1, 0.2
   
   ' copy background picture to bar picture:
   Set vbalProgressBar4.Picture = vbalProgressBar