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

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）

现有程序问题：只能移动到一边，无法回去（无往复运动）
' F8 [& R2 K8 p
3 C& w9 V$ h( W& e3 f5 w0 N源代码和注释：

1. 
   & r$ `, _! w2 V, L$ _: t
2. Sub Objectmove()
   
3. Dim p0 As Variant '起点坐标
   4 v/ l5 z; M- Y
4. Dim p1 As Variant '终点坐标
   
5. Dim pc As Variant '移动时起点坐标
   $ `# q! Q" g* ?6 P- g4 {1 E
6. Dim pe As Variant '移动时终点坐标
   . e# y' Q# |( k
7. Dim movx As Variant 'x轴增量
   0 H6 Z  w7 P' D# _- @% m
8. Dim movy As Variant 'y轴增量
   
9. Dim getobj As Object '移动对象
   
10. Dim movtimes As Integer '移动次数
    
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    
14. pe = p0
    : C; n8 n& X$ p! T- Y
15. pc = p0
    & f2 ~0 N' R  G) [; X
16. motimes = 3000
    6 ?0 Y9 d* O8 g/ l  Q; E; q- f
17. movx = (p1(0) - p0(0)) / motimes
    # g" d5 H2 ~0 }
18. movy = (p1(1) - p0(1)) / motimes
    # U1 c: y; K! u$ h
19. For i = 1 To motimes
    
20. pe(0) = pc(0) + movx
    5 C4 J9 {8 G% Y* n
21. pe(1) = pc(1) + movy
    ! |  b! G& J/ r: j# \% J& K4 m4 b4 v+ c: j
22. getobj.Move pc, pe '移动一段
    3 U! V+ C/ f8 f  @  R) K& C( G
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
    . [" C! d* p( t. M: G
28. pe(1) = pc(1) + movy
    
29. getobj.Move pc, pe '移动一段
    
30. getobj.Update '更新对象
    
31. Next j
    . @* L1 S; ]9 w0 x; E$ ~$ H
32. Next i
    6 {! F" f9 Q! n! U9 t3 j2 z/ S' n
33. End Sub
    

复制代码

另：是否我的声明有问题，选择对象是只能单选?
7 t# e) Z6 E) T( ^: u0 \
: S: l2 w& l# r5 A$ I9 G7 r+ Q哪位大哥帮忙看下，再此谢过！

' [  x5 }( f. b: e; }