Working With IntersectsWith And Angles?

I followed this tutorial [URL] in creating a pong game in VB NET, everything worked well as followed but believe there is still more development that needs to be done to it, for example if the ball is moving horizontally in a straight line, it will just re-bound of the paddles in the same angle everytime which means there is no point to the game. When the game starts moving the ball at a random angle and the ball re-bounds of either paddles, it will re-bound in the same angle it started with each time.

Pointed out what code this is:

Dim random As New Random() ' Random instance
Dim xVel As Single = Math.Cos(random.Next(6, 8)) * speed ' Move ball from randomized angle in X-axis
Dim yVel As Single = Math.Sin(random.Next(6, 8)) * speed ' Move ball from randomized angle in Y-axis

[code]....

If the ball hits the top of the paddle object, it should re-bound at a different angle How it should be is when the ball hits the paddle object, it should re-bound at a different angle, if it intersects at the top of the paddle, it should re-bound up or bottom of paddler should re-bound down.