You could either use a timer control to execute the
Code: max = gintLastRow
value = gintCounter
percent = value / max * 100
prgFileFilter.max = max
prgFileFilter.value = value
lblPercent.Caption = percent & "%"
(providing this code actually works for you....?)
alternatively, you could just do
Code:Public Sub UpdateStatus()
max = gintLastRow
value = gintCounter
percent = value / max * 100
prgFileFilter.max = max
prgFileFilter.value = value
lblPercent.Caption = percent & "%"
End Sub
and then call frmTestProgress.UpdateStatus within the loop....
Enter your message below
Sign in or Join us (it's free).