¡La animación VB simula la caída libre del baloncesto únicamente! ¡Gracias!
Es tan simple que originalmente tenía uno pero lo perdí, así que edité uno nuevo. El mío será mucho más complejo que el tuyo, con la capacidad de cambiar el color, el tamaño, la altura y moverse hacia la izquierda y hacia la derecha, o eliminarlo si lo solicitas.
Opción explícita
Dim ShLeft, ShTop ,text1.text como entero
Dim t como entero
Const g = 9,8 p> p>
text1.p>Si Shape1.Top >= 5000 Entonces
Timer2.Enabled = False
Timer3.Enabled = True
Finalizar si
Si Shape1.Top <= 0 Entonces
Timer2.Enabled = True