AutoAnimate Example for Access 2.0

This example gets information about an animated file, uses the information to position the LEAD control, and plays the animation as it loads the file.

' Force continued looping after the file loads.
Me![LEAD1].Object.AutoAnimationLoop = AUTOANIMATIONLOOP_INFINITE

' Set other properties for animation.
Me![LEAD1].Object.AutoSetRects = True
Me![LEAD1].Object.AutoRepaint = True

' Get information about the file we will load.
Me![LEAD1].Object.GetFileInfo "c:\windows\system\wndsurf1.avi", 0, 0

' Exit if this is not an animated file.
If Me![LEAD1].Object.InfoAnimation = False Then
   MsgBox "Not an animated file", 0, "Error"
Else
  Me![LEAD1].Object.AutoAnimate = True

' Load the animated file.
  Me![LEAD1].Object.Load "c:\windows\system\wndsurf1.avi", 0, 0, -1
End If