I want to include a progress bar in my form, how i can use with a count of a list box.

LOCAL OCR
LOCAL ORPT
cpath=ALLTRIM(THISFORM.TExt1.Value)
select repprint
with thisform.list2
 for i = 1 to .listcount
    if .Selected[i]
 	cReport1=ALLTRIM(thisform.list2.List(i))
  	crpt=cpath+creport1
	OCR = CREATEOBJECT("CrystalRuntime.Application")
	ORPT = OCR.OPENREPORT(crpt)
	thisform.label8.Visible= .t.
	thisform.label8.Caption=crpt
	IF ORPT.HASSAVEDDATA
		ORPT.DISCARDSAVEDDATA()
	ENDIF
	ORPT.PRINTOUT()
	cReport1=''
	crpt=''
   ENDIF
    GO i 
 ENDFOR
 thisform.label8.Visible= .F.
ENDWITH