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 .....