Brick Collision Help

[Enigma the Okay]

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

[Peter1]

If you've got Option Explicit on you may need to dimension 'i'.

For your collision detection have a look into using IntersectRect instead, might be easier.

Pete

[SLH]

This may help.

http://www.vbforums.com/showthread.p...hreadid=177612