А ручками лень поработать?
Вот до чего RAD языки людей доводят
Помести на форму два picturebox (p1 и p2). p2 помести в p1, а в p2 помести label по ширине равный p2, а по высоте - тексту.
А, еще таймер помести t1
пишем в коде:
Private Sub t1_Timer()
On Error Resume Next
With p2
If .top < p1.Height - p1.Height - .Height Then
.top = .Height - 1
.top = p1.Height - 5
Else
.top = .top - 5
End If
End With
End Sub
при желании можешь еще эффектов добавить, затухание там, ускорение/замедление.
потренеруйся вообщем.