Карлик Нос1. Как запускать, пока параллельно выполняется длинная(~4минуты) процедура?
В самой процедуре надо поставить DoEvents - чтобы выполнялось почаще.

Карлик Нос2. И где взять эту самую анимашку?
На событие таймера можно менять координаты и т.п. чего-нибудь.

Карлик НосПрогрессбар тоже не катит, привязать его не к чему - в процедуре два сохраненных запроса, очень больших и очень медленных.
Это как раз можно.

1. Пишем функцию, которая принимает один параметр, возвращает его же, но еще и продвигает прогрессбар.
2. В сохраненном запросе в одном из полей ставим обращение к этой функции.

Вариант: чтобы не надо было заранее узнавать количество записей, можно вместо прогрессбара выводить на экран надпись: Обработано ... записей.

Еще вариант: вместо этой надписи или прогрессбара - тот самый DoEvents.

И еще вариант: управление анимашкой из той же функции, а таймер тогда не нужен.

Допустим, запущено два процесса. И надо, чтобы первый чуть-чуть задержался и дал второму сработать. Вот для этого и служит команда DoEvents.

Например, у меня запущена программа, которая делает что-то тяжелое в течение часа. И в этот момент я кликнул мышкой по кнопке. Если в той программе нет ни одного DoEvents, то кнопка сработает тогда, когда кончится час. А если есть, то на нем и сработает.

Да нет. DoEvents должен быть не перед "Запрос на час", а внутри и много раз. См. в моем посте от вчера, 14:00 пункты 1 и 2.

Пример.

Есть запрос, который работает долго:
update t set a=b, c=d, e=f, g=h

Пишем функцию:
function xxx(x as variant)as variant
doevents
xxx=x
end function

Вставляем ее в запрос:
update t set a=xxx(b), c=d, e=f, g=h

В результате запрос делает то же, что и делал, но при этом на каждой записи делает doevents.