with thisform ** Create the progressbar and initialize it to zero. set classlib to cprogres additive this.AddObject('oProgress','cprogresscontainer',0,nTotRecs,.T.) ** Customize the title this.oProgress.SetTitle('Ledger Analysis') ** Customize the status this.oProgress.SetStatus('Looping') select sccoa scan select scstloc scan nYTDAmt = 0 && Blank out the YTDAmt for each Location for nMonth = 1 to 12 nRecno = nRecno+1 .oProgress.SetValue(nRecno) *****Some More Code with an insert command****** endfor endscan endscan ** Remove the progressbar from the form. this.RemoveObject('oProgress') release classlib cprogres endwith