Неприятно мигает Progress Bar!

[IljaO]

У меня Progress Bar увеличивает значение по таймеру через каждую секунду. При этом в нем кое-где проскакивает белая полоса. От этого можно избавиться?
Спасибо

[Alexanbar]

1) ЕСть подозрение, что перед тем, как получить очередное значение, присваивается нуль в Progressbar1.value
2) Doevents, Form1.refresh

[Ramzes]

Код: Выделить всё

Private Sub Timer1_Timer()
progressbar1.value = progressbar1.value + 1
if progressbar.value = 100 then exit sub
End Sub



По-моему так...

[IljaO]

Не, ничего не помагает:

Код: Выделить всё

Private Sub Form_Load()
ProgressBar1.Value = ProgressBar1.Max 'value сверху-вниз
End Sub

Private Sub Timer1_Timer()
Static val As Long '100% не обнуляется!
val = ProgressBar1.Value
ProgressBar1.Value = val - 1
Form1.Refresh 'пробуем раз...
DoEvents 'пробуем два...
End Sub

Не пашет