ПрогрессБар отдельной формой

В Глобальный модуль вставить процедуру:

//*****************************************************************************

Процедура глПрогрессБар(Сейчас=0,Всего=0) Экспорт

Попытка

Если Всего>0 Тогда

Если ПустоеЗначение(глКонтПрогрессБар)=0 Тогда

глКонтПрогрессБар.Сейчас=Сейчас;

глКонтПрогрессБар.Всего=Всего;

глКонтПрогрессБар.Форма.Обновить();

КонецЕсли;

Иначе

Если ТипЗначенияСтр(Сейчас)="Строка" Тогда

ОткрытьФорму("Обработка.ПрогрессБар",глКонтПрогрессБар);

глКонтПрогрессБар.Форма.Заголовок(Сейчас);

Иначе

Если ПустоеЗначение(глКонтПрогрессБар)=0 Тогда

глКонтПрогрессБар.Форма.Закрыть();

КонецЕсли;

КонецЕсли;

КонецЕсли;

Исключение

КонецПопытки;

КонецПроцедуры

... Ну и Обработку "ПрогрессБар"

И пользовать.. Вот пример:

глПрогрессБар("Тест ПрогрессБара...");

Для ин=1 По 10000 Цикл

глПрогрессБар(ин,10000);

КонецЦикла;

глПрогрессБар();