First declare your maximum, minimum and startvalue.
Let's assume your loop does a maximum of 100 iterations.
ProgressBar1.Maximum = 100
ProgressBar1.Minimum = 0
ProgressBar1.Value = 0
Then implement in your loop:
ProgressBar1.Value = ... [current loopvalue]