ProgressBar загрузка по мере загрузки формы

[Daniil]

Почему ProgressBar выводится уже 100%, если я пишу следующий код
Private Sub Form_Load()
Print ""
For a = 1 To 14989 Step 1
ProgressBar1.Value = a
Next a
ProgressBar1.Value = a
End Sub

Мне надо, что бы ProgressBar заргужался при запуске формы.
Скачайте мой пример и исправьте кто может!!!!! Там какая-то ошибка. Помогите плиззззз. Я хочу, чтобы ProgressBar показывался, когда идет длительная обработка данный, при появлении окна. (В общем СМОТРИТЕ МОЙ ПРИМЕР!!!!!)

[skiperski]

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

For...
     ...
     DoEvents
Next

[Daniil]

Я САМ понял проблему!!!!! заместо
Private Sub Form_Load()

End Sub

надо писать
Private Sub Form_Activate()

End Sub
И ТОГДА ВСЕ ПОДУЧАЕТСЯ.... Смотри ВНИЗУ ПРИМЕР ГОТОВЫЙ.....
ЕСЛИ КОМУ НАДО, ПИШИТЕ МНЕ НА ЛИЧКУ И Я СКИНУ ИСХОДНИК....