'detects if rocket is within magnet pulling range and moves rocket twards it

If imgRocket.Left + imgRocket.Width > imgMagnet1.Left - imgMagnet1.Width - imgMagnet1.Width And imgRocket.Left < imgMagnet1.Left And imgRocket.Top > imgMagnet1.Top - imgMagnet1.Height - imgMagnet1.Height And imgRocket.Top < imgMagnet1.Top + imgMagnet1.Height + imgMagnet1.Height + imgMagnet1.Height Then

sngRocketHVelocity = sngRocketHVelocity + 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet1.Left + imgMagnet1.Width And imgRocket.Left < imgMagnet1.Left + imgMagnet1.Width + imgMagnet1.Width + imgMagnet1.Width And imgRocket.Top > imgMagnet1.Top - imgMagnet1.Height - imgMagnet1.Height And imgRocket.Top < imgMagnet1.Top + imgMagnet1.Height + imgMagnet1.Height + imgMagnet1.Height Then

sngRocketHVelocity = sngRocketHVelocity - 2

End If

If imgRocket.Top + imgRocket.Height > imgMagnet1.Top - imgMagnet1.Height - imgMagnet1.Height And imgRocket.Top < imgMagnet1.Top And imgRocket.Left + imgRocket.Width > imgMagnet1.Left - imgMagnet1.Width - imgMagnet1.Width And imgRocket.Left < imgMagnet1.Left + imgMagnet1.Width + imgMagnet1.Width + imgMagnet1.Width Then

sngRocketVVelocity = sngRocketVVelocity + 2

End If

If imgRocket.Top < imgMagnet1.Top + imgMagnet1.Height + imgMagnet1.Height + imgMagnet1.Height And imgRocket.Top + imgRocket.Height > imgMagnet1.Top + imgMagnet1.Height And imgRocket.Left + imgRocket.Width > imgMagnet1.Left - imgMagnet1.Width - imgMagnet1.Width And imgRocket.Left < imgMagnet1.Left + imgMagnet1.Width + imgMagnet1.Width + imgMagnet1.Width Then

sngRocketVVelocity = sngRocketVVelocity - 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet2.Left - imgMagnet2.Width - imgMagnet2.Width And imgRocket.Left < imgMagnet2.Left And imgRocket.Top > imgMagnet2.Top - imgMagnet2.Height - imgMagnet2.Height And imgRocket.Top < imgMagnet2.Top + imgMagnet2.Height + imgMagnet2.Height + imgMagnet2.Height Then

sngRocketHVelocity = sngRocketHVelocity + 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet2.Left + imgMagnet2.Width And imgRocket.Left < imgMagnet2.Left + imgMagnet2.Width + imgMagnet2.Width + imgMagnet2.Width And imgRocket.Top > imgMagnet2.Top - imgMagnet2.Height - imgMagnet2.Height And imgRocket.Top < imgMagnet2.Top + imgMagnet2.Height + imgMagnet2.Height + imgMagnet2.Height Then

sngRocketHVelocity = sngRocketHVelocity - 2

End If

If imgRocket.Top + imgRocket.Height > imgMagnet2.Top - imgMagnet2.Height - imgMagnet2.Height And imgRocket.Top < imgMagnet2.Top And imgRocket.Left + imgRocket.Width > imgMagnet2.Left - imgMagnet2.Width - imgMagnet2.Width And imgRocket.Left < imgMagnet2.Left + imgMagnet2.Width + imgMagnet2.Width + imgMagnet2.Width Then

sngRocketVVelocity = sngRocketVVelocity + 2

End If

If imgRocket.Top < imgMagnet2.Top + imgMagnet2.Height + imgMagnet2.Height + imgMagnet2.Height And imgRocket.Top + imgRocket.Height > imgMagnet2.Top + imgMagnet2.Height And imgRocket.Left + imgRocket.Width > imgMagnet2.Left - imgMagnet2.Width - imgMagnet2.Width And imgRocket.Left < imgMagnet2.Left + imgMagnet2.Width + imgMagnet2.Width + imgMagnet2.Width Then

sngRocketVVelocity = sngRocketVVelocity - 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet3.Left - imgMagnet3.Width - imgMagnet3.Width And imgRocket.Left < imgMagnet3.Left And imgRocket.Top > imgMagnet3.Top - imgMagnet3.Height - imgMagnet3.Height And imgRocket.Top < imgMagnet3.Top + imgMagnet3.Height + imgMagnet3.Height + imgMagnet3.Height Then

sngRocketHVelocity = sngRocketHVelocity + 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet3.Left + imgMagnet3.Width And imgRocket.Left < imgMagnet3.Left + imgMagnet3.Width + imgMagnet3.Width + imgMagnet3.Width And imgRocket.Top > imgMagnet3.Top - imgMagnet3.Height - imgMagnet3.Height And imgRocket.Top < imgMagnet3.Top + imgMagnet3.Height + imgMagnet3.Height + imgMagnet3.Height Then

sngRocketHVelocity = sngRocketHVelocity - 2

End If

If imgRocket.Top + imgRocket.Height > imgMagnet3.Top - imgMagnet3.Height - imgMagnet3.Height And imgRocket.Top < imgMagnet3.Top And imgRocket.Left + imgRocket.Width > imgMagnet3.Left - imgMagnet3.Width - imgMagnet3.Width And imgRocket.Left < imgMagnet3.Left + imgMagnet3.Width + imgMagnet3.Width + imgMagnet3.Width Then

sngRocketVVelocity = sngRocketVVelocity + 2

End If

If imgRocket.Top < imgMagnet3.Top + imgMagnet3.Height + imgMagnet3.Height + imgMagnet3.Height And imgRocket.Top + imgRocket.Height > imgMagnet3.Top + imgMagnet3.Height And imgRocket.Left + imgRocket.Width > imgMagnet3.Left - imgMagnet3.Width - imgMagnet3.Width And imgRocket.Left < imgMagnet3.Left + imgMagnet3.Width + imgMagnet3.Width + imgMagnet3.Width Then

sngRocketVVelocity = sngRocketVVelocity - 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet4.Left - imgMagnet4.Width - imgMagnet4.Width And imgRocket.Left < imgMagnet4.Left And imgRocket.Top > imgMagnet4.Top - imgMagnet4.Height - imgMagnet4.Height And imgRocket.Top < imgMagnet4.Top + imgMagnet4.Height + imgMagnet4.Height + imgMagnet4.Height Then

sngRocketHVelocity = sngRocketHVelocity + 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet4.Left + imgMagnet4.Width And imgRocket.Left < imgMagnet4.Left + imgMagnet4.Width + imgMagnet4.Width + imgMagnet4.Width And imgRocket.Top > imgMagnet4.Top - imgMagnet4.Height - imgMagnet4.Height And imgRocket.Top < imgMagnet4.Top + imgMagnet4.Height + imgMagnet4.Height + imgMagnet4.Height Then

sngRocketHVelocity = sngRocketHVelocity - 2

End If

If imgRocket.Top + imgRocket.Height > imgMagnet4.Top - imgMagnet4.Height - imgMagnet4.Height And imgRocket.Top < imgMagnet4.Top And imgRocket.Left + imgRocket.Width > imgMagnet4.Left - imgMagnet4.Width - imgMagnet4.Width And imgRocket.Left < imgMagnet4.Left + imgMagnet4.Width + imgMagnet4.Width + imgMagnet4.Width Then

sngRocketVVelocity = sngRocketVVelocity + 2

End If

If imgRocket.Top < imgMagnet4.Top + imgMagnet4.Height + imgMagnet4.Height + imgMagnet4.Height And imgRocket.Top + imgRocket.Height > imgMagnet4.Top + imgMagnet4.Height And imgRocket.Left + imgRocket.Width > imgMagnet4.Left - imgMagnet4.Width - imgMagnet4.Width And imgRocket.Left < imgMagnet4.Left + imgMagnet4.Width + imgMagnet4.Width + imgMagnet4.Width Then

sngRocketVVelocity = sngRocketVVelocity - 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet5.Left - imgMagnet5.Width - imgMagnet5.Width And imgRocket.Left < imgMagnet5.Left And imgRocket.Top > imgMagnet5.Top - imgMagnet5.Height - imgMagnet5.Height And imgRocket.Top < imgMagnet5.Top + imgMagnet5.Height + imgMagnet5.Height + imgMagnet5.Height Then

sngRocketHVelocity = sngRocketHVelocity + 2

End If

If imgRocket.Left + imgRocket.Width > imgMagnet5.Left + imgMagnet5.Width And imgRocket.Left < imgMagnet5.Left + imgMagnet5.Width + imgMagnet5.Width + imgMagnet5.Width And imgRocket.Top > imgMagnet5.Top - imgMagnet5.Height - imgMagnet5.Height And imgRocket.Top < imgMagnet5.Top + imgMagnet5.Height + imgMagnet5.Height + imgMagnet5.Height Then

sngRocketHVelocity = sngRocketHVelocity - 2

End If

If imgRocket.Top + imgRocket.Height > imgMagnet5.Top - imgMagnet5.Height - imgMagnet5.Height And imgRocket.Top < imgMagnet5.Top And imgRocket.Left + imgRocket.Width > imgMagnet5.Left - imgMagnet5.Width - imgMagnet5.Width And imgRocket.Left < imgMagnet5.Left + imgMagnet5.Width + imgMagnet5.Width + imgMagnet5.Width Then

sngRocketVVelocity = sngRocketVVelocity + 2

End If

If imgRocket.Top < imgMagnet5.Top + imgMagnet5.Height + imgMagnet5.Height + imgMagnet5.Height And imgRocket.Top + imgRocket.Height > imgMagnet5.Top + imgMagnet5.Height And imgRocket.Left + imgRocket.Width > imgMagnet5.Left - imgMagnet5.Width - imgMagnet5.Width And imgRocket.Left < imgMagnet5.Left + imgMagnet5.Width + imgMagnet5.Width + imgMagnet5.Width Then

sngRocketVVelocity = sngRocketVVelocity - 2