Сообщество Чайников

Вопрос

При выполнении кода такого типа:

For i = 1 To Много [Step N]
    'Чего-нить делаем
Next

приложение не отвечает (совсем не отвечает). Если таймером вызывать, то при малом интервале аналогично. Как сделать, чтобы во время выполнения долгого цикла приложение отвечало, причем цикл надо выполнить максимально быстро?

Ответ

For i = 1 To Много [Step N]
    DoEvents
    'Чего-нить делаем
Next

Kvark