Option Explicit
 
Private Sub Command1_Click()
 
If ProgressBar1.Value = 10 Then
ProgressBar1.Value = 0
End If
 
ProgressBar1.Value = ProgressBar1.Value + 1
 
End Sub
 
Private Sub Form_Load()
ProgressBar1.Max = 10
End Sub

EALA FREYA FRESENA