Dear Experts

In do whlile, to see status I use follwong line

@ 11, 39 SAY FDATE1 COLOR W+/RB

But now I want to use progressbar instead of above line.
How is it possible?

Please Help

DO WHILE FDATE1<=T_DATE1
	@ 11, 39 SAY FDATE1 COLOR W+/RB
	STORE 0 TO DR1, DR2, DR3, CR1, CR2, CR3
	SELECT VOUCHERS
	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DR_AMOUNT TO DR1
	SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CR_AMOUNT TO CR1
	IF DR1>0 .OR. CR1>0
		SELECT CASH_F
		APPEND BLANK
		REPLACE DATE WITH FDATE1, DEBIT WITH DR1, CREDIT WITH CR1
	ENDIF
	FDATE1 = FDATE1+1
ENDDO