Long  li_quantity_lines	
li_quantity_lines  =  32000  
//++- li_quantity_lines  =  100000  // хотя аварийно НЕ ЗАВЕРШАЕТСЯ, первый раз заполняет
// весь  прямоугольник, а потом слева перед началом, но полоса выводится
// от левого края влево, не попадает в прямоугольник с начала в правую сторону
// значение счетчика  кол-ва считанных  строк
long li_end
li_end = li_quantity_lines
UO_ProgressMeter.uf_initialize (  li_quantity_lines )// функция пользовательского объекта
integer li_part_of_job
li_part_of_job = li_end /  100 
integer li_count // может иметь max value  100 , сколько раз т.е. какой процент работы сделано
li_count= 0  
// MessageBox("определение работы в 1 %","24.li_part_of_job = " + string(li_part_of_job))

li_quantity_lines =  0   // обнуляю счетчик кол-ва считанных  строк, записей - т.е. 
integer li_delta
li_delta =  0  
do 
	li_quantity_lines	++	//кол-во обработанных записей - счетчик кол-ва 
	if li_quantity_lines	= li_part_of_job	THEN
	//	Uo_ProgressMeter.uf_advance ( li_quantity_lines * li_count)
		Uo_ProgressMeter.uf_advance ( li_quantity_lines * li_delta)
	li_count ++ // может иметь max value  100 , сколько раз т.е. какой процент работы сделано
		li_quantity_lines =  0 
		li_delta ++
		IF uo_progressmeter.R_innerbox.Width >  1634  THEN
			//uo_progressmeter.R_innerbox.Width =  0  
	MessageBox("","width of ractangle = " + string(uo_progressmeter.R_innerbox.Width)) //  1539 
			li_delta =  0 
	END IF
//	IF uo_progressmeter.R_innerbox.Width >  1634  THEN  1634 -это ширина прямоугольника
//		uo_progressmeter.R_innerbox.Width =  0 
//	END IF
	IF li_count =  100  THEN EXIT 
LOOP WHILE true

function  "uf_advance" :
Real lr_ratio
Integer li_percent
String  ls_value_of_job	// вывод для пользователя кол-во строк во входном файле
string li_percent_old,li_percent_new

ls_value_of_job = "Подлежит ( ало ) обрабтке " + string( ir_finalcount) + " строк." 
lr_ratio = al_count / ir_finalcount	// кол-во обработанных строк разделить на ВСЕГО СТРОК,
				//	подлежащих обработке
li_percent = Round(lr_ratio *  100 , 0 )
li_percent_old=st_1.text
li_percent_new = "Обработано " + string(li_percent)+" %" + " из  100 %"
if li_percent_old<>li_percent_new then
  st_1.text = li_percent_new
  st_2.text = ls_value_of_job	//вывод для пользователя кол-во строк во входном файле
end if
r_innerbox.Width = r_outbox.Width*lr_ratio
// MessageBox("","width of ractangle = " + string(r_innerbox.Width)) //  1539 
// ВЫводило  0 ,  16 	/  15 . - 1  /  14 , - 2  и т.д.

//if r_innerbox.Width >  1634  then
//	r_innerbox.Width =  0 
//end if

функция  "UF_INITIALIZE"
ir_finalcount = al_finalcount   // ir_finalcount - объектная переменная 
uf_advance( 0 )	// установка нулевого значение счетчика.

я нашёл хороший пример для PB9. 0 
'pbexamw3.pbl' window 'w_uo_sampler'
PS: работает даже при значении  32   000   000   000 
А не только при  32   000 
Кому надо - ИСПОЛЬЗУЙТЕ.