alguien sabe como hacer el vuelo parabolico en VB6?

tengo que poner la velocidad de subida Y y la horizontal X a partir de una velociad inicial y un angulo.

la velocidad Y es positiva y cada timer le resta 9,8 hasta llegar a 0 (el punto mas alto) y entonces la Velocidad Y pasa a ser negativa y acelerada por 9,8 hasta que llega al suelo o a un *.top = 0 para que no se pierda la bola o para que se acabe el programa.

con esto se consigue el vuelo en altura, pero el vuelo horizotal no se me ocure como hacerlo.

AYUDA!!! que mi programa ya ni chuta y eso que antes solo fallaba una tonteria. lo malo es no tenerlo bien guardado con lo cual solo me queda el codigo hecho polvo.