要实现一个动画：Shape 向下移动，但想看他的移动过程，要在以下的代码上添加什么？
Dim i As Integer
    For i = 1 To 900
    Shape3.Top = Shape3.Top + 20
    i = i + 1
    Next i
 谢谢！