Private Sub Form_Load()
ProgressBar.Min = 0
ProgressBar.Max = 100
End Sub
 
Private Sub Command1_Click()
ProgressBar.Value = ProgressBar.Value + 10
End Sub