怎样让指定的对象在移动到某一位置时停住？

Question

我编了这样一个程序代码是Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 30
End Sub目前我不知道如何让Shape1从A点运动到B点时停止向右方向的移动，再继续按指定路径运动。Timer1的Interval值为10。请各位高手指点一下，谢谢！

Answer 1

Private Sub Form_Load()
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
End SubPrivate Sub Timer1_Timer()
    If Shape1.Left + 300 + Shape1.Width < Me.Width Then
        Shape1.Left = Shape1.Left + 100
    Else
        Timer1.Enabled = False
        Timer2.Enabled = True
    End If
End SubPrivate Sub Timer2_Timer()
    If Shape1.Top + 500 + Shape1.Height < Me.Height Then
        Shape1.Top = Shape1.Top + 100
    Else
        Timer2.Enabled = False
        Timer3.Enabled = True
    End If
End SubPrivate Sub Timer3_Timer()
    If Shape1.Left > 0 Then
        Shape1.Left = Shape1.Left - 100
    Else
        Timer3.Enabled = False
        Timer4.Enabled = True
    End If
End SubPrivate Sub Timer4_Timer()
    If Shape1.Top > 0 Then
        Shape1.Top = Shape1.Top - 100
    Else
        Timer4.Enabled = False
        Timer1.Enabled = True
    End If
End Sub

Answer 2

给个思路：
dim intX as Integer
dim intY as Integer'A点的坐标为XA,YA
'B点的坐标为XB,YB
'C点的坐标为XC,YC
'D点的坐标为XD,YD
    
intX=1
intY=0
private sub timer1_timer()
  '区分一下什么时时候intX=1,0,-1;intY=1,0,-1  
  Shape1.move Shape1.left+intX*30，Shape1.Top+intY*30
end sub