>Therefore I'm asking just one more time, how can I add a progress bar, but not slow down the perfomance significantly?

You said this was for your personal use? How about this:

oForm = CREATEOBJECT('MyTLForm')
oForm.Show
SET TALK WINDOW MyTLForm
SET TALK ON
COPY TO c:\aa\temp
DEFINE CLASS MyTLForm as form
ShowWindow = 2
name = 'MyTLForm'
ENDDEFINE

There's some code in SDT that makes VFP display a graphic status bar instead of the counter, but I can't figure it out how.