Private Sub Form_Load()
  ProgressBar1.Min = 0
   ProgressBar1.Max = 600
    ProgressBar1.Scrolling = ccScrollingSmooth
   Timer1.Interval = 100
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  ProgressBar1.Value = ProgressBar1.Value + 1
  If ProgressBar1.Value = 600 Then Timer1.Enabled = False
End Sub