Private Sub Command1_Click()
 
ProgressBar1.Value = 0
 
Timer1.Enabled = True
 
End Sub
 
 
 
Private Sub timer1_timer()
 
If ProgressBar1.Value < 100 Then
 
ProgressBar1.Value = ProgressBar1.Value + 1
 
End If
 
If ProgressBar1.Value = 100 Then
 
Timer1.Enabled = False
 
End If
 
End Sub