Прогрес бар

[0creator0]

Подскажите, пожалуйста, примостил прогресс бар, когда проверяю через Step Into , % показывает все правильно и к концу работы макроса выводит 100 %, но когда я его запуская в живую он мне показывает 6 % замирает и затем выгружается, не доходит до 100, в чем моя ошибка , укажите.

[Hugo121]

Хватило одной строки.
Но правда дёргается...

    Me.Repaint
  ' К сожалению конструкция:
  ' If GetInputState() <> 0 Then
  '   DoEvent
...
...

[0creator0]

Я поставил, Me.Repaint получилось :

If timeGetTime - lngTime > 250 Then
DoEvents ' принудительно заставляем форму обработать свою очередь сообщений
lngTime = timeGetTime
End If
Me.Repaint

Но, у меня теперь сразу показывает 100% , то есть полоска не ползет по %, а сразу выдает

[0creator0]

Все понял из-за малого массива обработки данных, поэтому и показывает так.