put a balloon picture in a image control and then put this code in a commandbutton event or whatever...
Code:
Dim speed&
image1.move rnd*scalewidth,scaleheight
speed=30
Do
   image1.move image1.left,image1.top-speed
   doevents
Loop until image1.top<0