>_vfp.autoyield = .f. >oform = newobject('cprogress','utilities.vcx',iif(_vfp.startmode>0,_vfp.servername,"")) >m.oform.show >m.oform.lockscreen = .f. >m.oform.setminmax(0,reccount('bilfile')) >select bilfile >scan > m.lncount = m.lncount + 1 > m.oform.setprogressvalue(m.lncount) oform.Draw > &&process ... >endscan >_vfp.autoyield = .t. >>