Não sei se o Picture Funciona, mas com Image, coloque em um Timer
No Form Load
Image1.Stretch = True
Image1.Top = 0
Timer1.Enabled = True
Timer1.Interval = 250 ' milionésimo de segundo
Private Sub Timer1_Timer()
If Image1.Top > Altura Máxima que Quiser Then
Image1.Top = Altura Minima Que Quiser
Else
Image1.Top = (Image1.Top + 20)
End If
End Sub
Bem, o resto é sua criatividade e necessidade, complete como quiser com Left, Height, Width.
vlu//