I am changing the caption property of a label inside a Do Loop but it does not work. The program runs well but get almost 100% from CPU and in task manager appears "Not reponding". Of course when the Do Loop finish the label get updated. The code is more or less like this:

i=1
do
label.caption="Tested:" & Cstr(i)
i=i+1
loop until 1=10000