The simplest solution (as always) would be this:

Code:
for x=1 to 1000
  label1.caption=x
  label1.refresh
next x
which saves a DoEvents