Outlook Script: insert a pause in <<do while>>

[bbnimda]

Hi All,

In my form I , read and modify Value in Contact List (about 3000 contacts),
when I try to do it in one Time it hang at 250 contact, So I tryed to add a
break each 200 contact by adding a counter << label.caption >> but the
counter does't change until the script is finish

I want it to change value each loop how can I do that

here is my code

======================================
do while compteur < X

'Here are my instructions ....
X = X+ 1

formpage.controls("label4").caption = X

loop

======================================

Tks