Requisitos

1. Insertar un objeto Timer
2. Insertar un objeto Image1 y colocarle la imagen que bajaron de internet en la propiedad Picture.
3. Ingresar en la ventana de código las siguientes instrucciones

Dim Velocidad As Double


Private Sub Form_Load()

'Posicionamos el picture o el control image en el form

Image1.Top = 10
Image1.Left = 10

' maximiza el formulario
Me.WindowState = 2

'Establecemos un valor al Timer y lo activamos
Timer1.Enabled = True
Timer1.Interval = 10

'Establecemos valores a las variables _
para el efecto de rebote

Fuerza = 1.7
Velocidad = 0

End Sub

Private Sub Timer1_Timer()

If Image1.Top > 4000 Then
   ' Esta línea se ejecuta cuando llega al limite
   Image1.Top = 4000
   Velocidad = Velocidad * -0.6
End If

  Velocidad = Velocidad + Fuerza

 ' mueve le top en el control image
  Image1.Top = Image1.Top + Velocidad
End Sub