Когда бильярдный шар попал в лузу, нужно чтобы таймер останавливался

Function Dist(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As  Long
   Dist = Sqr(((X2 - X1) * (X2 - X1)) + ((Y2 - Y1) * (Y2 - Y1)))
End Function

Private Sub Timer1_Timer()
x = x + dx: y = y + dy
Ball.Left = x: Ball.Top = y
If x < 5900 Or x > 9920 Then dx = -dx
If y < 1000 Or y > 6800 Then dy = -dy
' если расстояние меньше высоты лунки или шара +5 на всяки случай
If Dist(x, y, 5880, 960) < 140 Then Timer1.Enabled = False
If Dist(x, y, 9960, 960) < 140 Then Timer1.Enabled = False
If Dist(x, y, 5880, 6840) < 140 Then Timer1.Enabled = False
If Dist(x, y, 9960, 6840) < 140 Then Timer1.Enabled = False
 
End Sub

Dim x As Integer, y As Integer, dx As Integer, dy As Integer
Dim R
 
Private Sub Form_Load()
x = Ball.Left: y = Ball.Top
dx = 40: dy = 60
R = Ball.Width / 2
End Sub
 
Private Sub Timer1_Timer()
x = x + dx: y = y + dy
Ball.Left = x: Ball.Top = y
If x < 5900 Or x > 9920 Then dx = -dx
If y < 1000 Or y > 6800 Then dy = -dy
For i = 0 To 3
If (x - Shape17(i).Left) ^ 2 + (y - Shape17(i).Top) ^ 2 < R ^ 2 Then
Ball.Move Shape17(i).Left, Shape17(i).Top
Timer1.Enabled = False
End If
Next i
End Sub