I have a code but it keeps saying not defined for the "i". here it is:


Private Sub Timer1_Timer()
shpBall.Left = Ball.X + (Ball.radius)
shpBall.Top = Ball.Y + (Ball.radius)
Ball.X = Ball.X + Ball.a
Ball.Y = Ball.Y + Ball.b

Call FormBrickCollisionDetection
Call FormCollisionDetection
End Sub

Private Sub FormBrickCollisionDetection()
For i = 0 To 179
If Ball.Y + Ball.diameter = Brick(Index).Top + Brick(Index).Height Then
Ball.b = -Abs(Ball.b)
Brick(Index).Visible = False
End If
Next i

End Sub