选择对象做往复运动，不知道问题出在哪？附源代码和注释

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）
: l$ j" H. ~, ]) c/ H) F. E* ]
现有程序问题：只能移动到一边，无法回去（无往复运动）
  J7 ?; n$ [' ?& C4 B- h8 G
( R/ [5 F5 T" M8 i& L. X& P1 b. m源代码和注释：

1. 
   4 {2 z! t( G) {+ P: X, T' b
2. Sub Objectmove()
   , \" ]  ^0 f3 m7 }8 i  ^% [
3. Dim p0 As Variant '起点坐标
   1 f/ I0 a, G8 U) ]8 |% O- d
4. Dim p1 As Variant '终点坐标
   
5. Dim pc As Variant '移动时起点坐标
   4 {2 V" O) s5 K; p" M" z
6. Dim pe As Variant '移动时终点坐标
   
7. Dim movx As Variant 'x轴增量
   ) S) J* }# A9 P( K7 ]3 i
8. Dim movy As Variant 'y轴增量
   6 @+ p3 ]6 [# O- {: t
9. Dim getobj As Object '移动对象
   
10. Dim movtimes As Integer '移动次数
    
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    & O. ~4 ~( ?- ]! u
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    ( F; l( x4 g+ l2 i$ d
14. pe = p0
    ; w; ^1 D- I/ \
15. pc = p0
    : ~. G* t% n' t
16. motimes = 3000
    
17. movx = (p1(0) - p0(0)) / motimes
    - L- E9 g9 h% L+ @
18. movy = (p1(1) - p0(1)) / motimes
    . }  E: F! ~# K
19. For i = 1 To motimes
    6 {( x  ?6 R& M; e+ N! S
20. pe(0) = pc(0) + movx
    
21. pe(1) = pc(1) + movy
    1 D; s% N+ |/ W  w
22. getobj.Move pc, pe '移动一段
    
23. getobj.Update '更新对象
    
24. movx = (p0(0) - p1(0)) / motimes
    
25. movy = (p0(1) - p1(1)) / motimes
    
26. For j = motimes To 1
    
27. pe(0) = pc(0) + movx
    # r* L. _) ]' l& ]; [, u
28. pe(1) = pc(1) + movy
    
29. getobj.Move pc, pe '移动一段
    7 L& P' V' h& k% `2 U: e3 h! A7 K
30. getobj.Update '更新对象
    
31. Next j
    2 Y# a. s5 X& }6 j. L- m" x
32. Next i
    
33. End Sub
    

复制代码

另：是否我的声明有问题，选择对象是只能单选?

哪位大哥帮忙看下，再此谢过！
! v  A- D' s; k
# ]$ T' r; n: Q% A: e8 c
( Q) N8 Y7 M  p  _

" `; N2 |$ d/ M4 w6 j( R& I