VB Forum / General / December 2004

Stick all of your images in one 'strip', then use the BitBlt() API call or PaintPicture() method to draw a frame in the Tick() event
handler of a timer control.  Here's an old post with some example code for you:
http://groups.google.co.uk/groups?selm=8pmu7u%242lt%241%40plutonium.btinternet.com
If you don't fancy this, you could look into the animation control which uses AVI files or for a very kludgey solution use an
embedded web browser control and drop in an animated .GIF or .SWF Flash animation (you didn't mention what your source animation
format is..)
Hope this helps,

   Mike

- Microsoft Visual Basic MVP -
E-Mail: EDais@mvps.org
WWW: Http://EDais.mvps.org/

You could probably find something here:
http://www.vbavi.craigmellon.co.uk/searchresult.asp?Category=File

The site also has code on how to add and use the AVI from a resource file.
I have used this method in the past and it works great...

Do you mean like the one shown on my web site?

http://home.surewest.net/galen/index.html

Fourth project down "DigitalRecordSystem"

It is a simple animated GIF

Galen

Here is one simple method.  It involves using a picture box as the
control to show the animation, with an Image control to hold the
images.

To see it in action, add a picturebox and timer to a new form.
Then add an Image control to the picturebox.  The picturebox
needs to contain the image control.  You'll know if you've done
right because 1, you'll be able to see the image control, and 2,
the image control will stay with the picturebox where ever you
move the picturebox to.  

With the controls set up like that, paste the code below into
the form's code window.  It was a quick job and could stand
improvement, but it may help you see how to get the job done!

HTH
LFS

Option Explicit

Private FrameCounter As Long

Private Sub Form_Load()
 BuildAnimation
 Timer1.Interval = 100
 Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
 Image1.Left = FrameCounter * -500
 FrameCounter = (FrameCounter + 1) Mod 11
End Sub

Private Sub BuildAnimation()
Dim x As Long, a As Single
 
 ' Set up
 Picture1.Move 300, 300, 6000, 400
 Picture1.AutoRedraw = True
 Picture1.BackColor = vbWhite
 Picture1.FillColor = &H808080
 Picture1.FillStyle = vbFSSolid
 
 ' Draw images
 For x = 0 To 10
   Picture1.Line (x * 500 + 90, 120)-Step(240, 180), vbBlack, B
   Picture1.Line (x * 500 + 90, 180)-Step(120, 90), vbBlack
   Picture1.Line -Step(120, -90), vbBlack
 Next
 Picture1.FillColor = &HC0C0C0
 For x = 0 To 10
   Picture1.Circle (x * 500 + 90, 120), 90, &HEEEEEE
   Picture1.Line -Step(90 * Cos(a), 90 * Sin(a)), vbRed
   Picture1.Circle (x * 500 + 330, 120), 90, &HEEEEEE
   Picture1.Line -Step(90 * Cos(a), 90 * Sin(a)), vbBlue
   a = a + 0.6
 Next
 
 ' Move images to Image control
 Image1.Picture = Picture1.Image
 Image1.Move 0, 0
 ' Set frame size
 Picture1.Move 300, 300, 510, 450
 
End Sub