VS 2008 Brick Breaker

ok, I new into vb and i'm trying to build up a brick breaker game...it's working well so far but i keep updating it.
What i need to know is how to collect the stuff that fall from bricks..example: a heart that gives u +1 live..(i added the hearts and it's falling alright, but how to collect it when it touches the paddle)
This is the code i used for the bricks and paddle:

Public Sub CheckCollisions()
CheckCollision(Paddle, False)
CheckCollision(Block1)
CheckCollision(Block2)
CheckCollision(Block3)
CheckCollision(Block4)
CheckCollision(Block5)
CheckCollision(Block6)
CheckCollision(Block7)
CheckCollision(Block8)
CheckCollision(Block9)
CheckCollision(Block10)
CheckCollision(Block11)
CheckCollision(Block12)
CheckCollision(Block13)
CheckCollision(Block14)
CheckCollision(Block15)
CheckCollision(Block16)
CheckCollision(Block17)
CheckCollision(Block18)
CheckCollision(Block19)
CheckCollision(Block20)


End Sub

Public Sub CheckCollision(ByRef src As PictureBox, ByVal Hide As Boolean)
If src.Visible = True Then
If BallX > src.Location.X And BallX < src.Location.X + src.Size.Width And Ball.Location.Y > src.Location.Y And Ball.Location.Y < src.Location.Y + src.Size.Height Then
SpeedY = -SpeedY

If Hide Then
src.Visible = False
End If
End If
AllGone += 1
End If
End Sub