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

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