AnimationEnable Example for Access 2.0

This example loads and plays an animated file. It assumes that the LEAD control has already been sized to the aspect ratio of the image.

' Load all pages of an AVI file.
Me![LEAD1].Object.Load "c:\windows\system\wndsurf1.avi", 0, 1, -1

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

' Set the image display size to match the LEAD control.
Me![LEAD1].Object.SetDstRect 0, 0, Me![LEAD1].Object.ScaleWidth, Me![LEAD1].Object.ScaleHeight
Me![LEAD1].Object.SetDstClipRect 0, 0, Me![LEAD1].Object.ScaleWidth, Me![LEAD1].Object.ScaleHeight

' Allow a continuous loop.
Me![LEAD1].Object.AnimationLoop = True

' Start the animation.
Me![LEAD1].Object.AnimationEnable = True