В Глобальный модуль вставить процедуру:
//*****************************************************************************
Процедура глПрогрессБар(Сейчас=0,Всего=0) Экспорт
Попытка
Если Всего>0 Тогда
Если ПустоеЗначение(глКонтПрогрессБар)=0 Тогда
глКонтПрогрессБар.Сейчас=Сейчас;
глКонтПрогрессБар.Всего=Всего;
глКонтПрогрессБар.Форма.Обновить();
КонецЕсли;
Иначе
Если ТипЗначенияСтр(Сейчас)="Строка" Тогда
ОткрытьФорму("Обработка.ПрогрессБар",глКонтПрогрессБар);
глКонтПрогрессБар.Форма.Заголовок(Сейчас);
Иначе
Если ПустоеЗначение(глКонтПрогрессБар)=0 Тогда
глКонтПрогрессБар.Форма.Закрыть();
КонецЕсли;
КонецЕсли;
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
... Ну и Обработку "ПрогрессБар"
И пользовать.. Вот пример:
глПрогрессБар("Тест ПрогрессБара...");
Для ин=1 По 10000 Цикл
глПрогрессБар(ин,10000);
КонецЦикла;
глПрогрессБар();