Dim kacadet As Integer kacadet = kacadet + 1 Me.ProgressBar3.Value = Round((kacadet) * 100 / sonsatirno, 0)