Show GIF or Flash animation on top of everything

[gerardolopezb]

I want to use a VB script for this: Insert a flash or animated gif in my PC.

I want that the animation can appear on top of anything on the screen in that moment. For example an animation that appear on the right side of the screen and moves toward the left with a message that I can customize. Maybe somebody can make a script like that. It is to be used with windows XP. Or maybe tell me if there is a software that can do this.
Please post the answer here or write to.

[E-mail address removed by Moderator]

Please give me a hand.

Lots of thanks in advance.

Gerardo Lopez. From Costa Rica.

[daniel aristidou]

I want to use a VB script for this: Insert a flash or animated gif in my PC.

I want that the animation can appear on top of anything on the screen in that moment. For example an animation that appear on the right side of the screen and moves toward the left with a message that I can customize.

This is very easy in vb08 im not sure about the other versions........

Get vb08....(express free if you dont have )
on the form properties you can set ontop = true
set the form border options = none
add the gif to your form
And use a timer to move the form around...
so simply add the gif to this.....
also if you want you also have the choice of making the form semitransparent.

[larystoy]

Save each picture of your gif as transparent. IE dove1.gif, dove2.gif .... dove14.gif.

place a timer set to 1000 and all of the individual pictures along with the animitaded gif original on top of each other. The animated gif file is called "picAnimate" in this example.

The example below is a dove flying across the screen from left to right.

Private Sub DoveTimer_Timer()

picAnimate.Top = 1 'set location from top of screen

Static currentpic As Integer
If currentpic = 14 Then currentpic = -1
currentpic = currentpic + 1
picAnimate.Left = picAnimate.Left + 55
If (picAnimate.Left) > ScaleWidth Then picAnimate.Left = -1000 ' orig -3600
picAnimate.Picture = imgDove(currentpic).Picture

End Sub