Clarion - progresBar

Hola mi problema es que tengo un procedimiento hecho con codigo y cuando lo ejecuto desde algun boton necesitaria que aparecienra una barra de progreso mientras se termina de ejecutar todo el procedimiento alguna idea de como hacerlo?

Muy Facil

En el Window, pon el "progress bar" del tamaño q mejor se te ajuste a la ventana, yo ademas lo dejo oculto (Hide).
La variable declarala y usa una de tipo real, ejemplo:

Resto Real !Lo que llevo procesado
Total Real !Total de lo que voy a procesar
Progreso Real !Valor del progress bar

!Si usas fechas
D_Fec Long !Fecha inicio
A_Fec Long !Fecha fin

Code
Resto = 0 ;Total = Records(Fichero)
Progreso = 0 ;Unhide(?Progreso) !Por defecto dejo la barra oculta

Loop
Resto+=1
Progreso = Resto * 100 / Total
Display !Si no pones este display no se ve la barra caminar

!tu codigo o proceso
End

!Si usas fechas
Total = A_Fec - D_Fec
Progreso = 0 ;Unhide(?Progreso) !Por defecto dejo la barra oculta

Loop
Progreso = (Pre:FechaDelRegistroEnCurso - D_Fec) / ((A_Fec - D_Fec) / 100)
Display !Si no pones este display no se ve la barra caminar

!Tu codigo o proceso
End

y eso es todo amigos .....