Remco,

Found this in the knowledgebase.

Thanks,
Dan

thisform.oleProgressbar.Maxvalue = reccount() && or whatever you want
select *, updatevalue()
from table;
where condition;
into cursor tmp

with thisform.oleProgressBar
.Value = .MaxValue
endwith

function updatevalue
with thisform.oleProgressBar
.Value = _tally
if .Value >=.MaxValue
.MaxValue = .Value*2
endif
endwith