Пропадает Прогрессбар на время исключения компонента из расчета.

[lavgirb]

Пропадает Прогрессбар на время исключения компонента из расчета.
Исключение компонента из расчета занимает некоторое, заметное на глаз время на участке кода

Код Выделить Развернуть

oFeat7.Excluded = bExcludeFromCalcНа это время прогрессбар перестает отображаться.
В итоге Прогрессбар мигает во время работы программы.
Есть ли способ устранить мигание?
Вот код
 

Код Выделить Развернуть

For i = 0 To UBound(oArrParts)
      Set oFeat7 = oArrParts(i)
      oFeat7.Excluded = bExcludeFromCalc
      '
      oProgressBar.SetProgress i, "", True 
      '
   NextБлокирование обновления окна с помощью

Код Выделить Развернуть

LockWindowUpdate moKO5.ksGetHWindowНе приводит к желаемому результату.
Какие можно предпринять меры, чтоб убрать мигание?
Спасибо.

[lavgirb]

В общем, оказалось, что при исключении из расчета (включении в расчет) появляется штатный Прогрессбар от КОМПАС.
Он "прыгает", не дает возможности отображаться программному.
Пока просто добавил Прогрессбар после отработки включения в расчет:

Код Выделить Развернуть

oProgressBar.Start ub, ub, "", False: DoEvents 
oProgressBar.SetProgress ub, "", False: DoEvents
oProgressBar.Stop "", FalseЧтобы программый Прогрессбар на короткое время показал заполненную строку состояния по окончанию процесса.