Here is a handy progress bar which you can use. Pleace it in a loop when your are updating to show percentage complete. All you need to do is pass it the Caption, Message text , percentage complete and optionally if you want it to display % (as T/F). The xaption is closed automatically when percentage is 100

ProgressBar ({Caption Title},{Message},{Percentage},[Show% T/F {optional}]

For Example:

'*** Sample Test Code *****
nMax = 1000
for nCount=1 to nMax
progressbar("Progress","Updating - Please Wait!",nCount/nMax*100,.F.)
next nCount

The function also contain logic to avoid excessive refreshing. Ie: It will only refresh 100 times (1-100%) and you do not need to worry about how times you call it in the loop.