<p>I'm trying to animate Visio objects with a loop, such as:</p>

<pre><code>For reposition = 2 To 6
    xpos = reposition
    ypos = reposition

    sh1.SetCenter xpos, ypos

    Sleep 1000

Next reposition
</code></pre>

<p>While this DOES move the object from the starting position to the ending, the intermediate steps are not visible. After a delay only the final position is displayed.</p>

<p>If I put a <code>MsgBox</code> in the loop then each intermediate position is visible but one must click a distracting, center-positioned box in order to see these.</p>

<p>How can I make the flow visible without user interaction and covering of the screen by a modal window?</p>

Try a
```
DoEvents
```
statement before your sleep