WD Playing a Flash animation swf

// Select the video file
sFile is string
sFile = fSelect(EDT_FILE, "Select a Flash file...",...
"Flash files (*.swf)"+TAB+"*.swf"+CR+...
"All files (*.*)"+TAB+"*.*",...
"*",fselOpen+fselExist)

WinRedraw()

// If a file was selected
IF sFile<>"" THEN
EDT_FILE=sFile

// animation to load
ActiveX1>>movie=EDT_FILE
// stop the animation
ActiveX1>>StopPlay()


END


// Play the animation
// Call the Play() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>Play()


// Pause the animation
// Call the StopPlay() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>StopPlay()


// Stop the animation
// Call the StopPlay() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>StopPlay()

// Position at the start of the animation
// Call the GoToFrame() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>GoToFrame(0)