[AccessD] Question about Animated Graphics

That was just a proof of concept.
Just drop  Leban's animated gif  control on the form from the toolbox
after adding  Ocx via Tools--> ActiveX
I used the Ver 2.5 of the OCX and the gears were whirring beautifully
There are start and stop methods and you can change background colour.
http://www.lebans.com/animatedgifplayer.htm

Private Sub Form_Open(Cancel As Integer)
'Me.AnimatedGifCtl0.LoadGif True 'if true will look up gif filename via 
file dialog
Me.AnimatedGifCtl0.strGifFileName = "C:\Access 
files\Lebans\AnimatedGif\gears5.gif"
Me.AnimatedGifCtl0.LoadGif False
' If you want the  Gif to start
' automatically upon load then
' uncomment out the line below.
Me.AnimatedGifCtl0.StartTimer
DoEvents
Me.Refresh
End Sub

Arthur Fuller wrote:

>Well, that clearly works, but I think I'll give you a smack upside the
>temple anyway LOL. (I wonder if there is a more universally hated developer
>in the world than the author(s) of these various assistants.)
>
>So you have demonstrated that we can invoked the Assistant from Access.
>Upsizing the question, is this sort of approach possible with other
>animations? Case in point -- the gears inside a torn-open skin, that revolve
>in synch. Can I use your code to apply to such an animated JPG, and if so,
>how?
>
>TIA,
>Arthur
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
>Sent: June 22, 2005 2:21 PM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Question about Animated Graphics
>
>Well animated graphics seem to be possible from vba
>Just run this snippet  in debug window
>Please don't hit me ;)
>
>With Assistant
>    .On = True
>    .Visible = True
>    .Move xLeft:=400, yTop:=300
>    .MoveWhenInTheWay = True
>    .TipOfDay = True
>    'need reference to MS Office 11.0 Library
>   ' .Animation = msoAnimationGreeting
>   .Animation = 2
>End With
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada