Prueba esto
PUBLIC oForm
oForm = NEWOBJECT("MiForm")
oForm.SHOW
DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario con un archivo .SWF"
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300
ADD OBJECT olecontrol1 AS OLECONTROL WITH ;
TOP = 10, ;
LEFT = 10, ;
WIDTH = 200, ;
HEIGHT = 200, ;
NAME = "Olecontrol1", ;
OLECLASS = "Shell.Explorer.2"
PROCEDURE olecontrol1.REFRESH
NODEFAULT
ENDPROC
PROCEDURE olecontrol1.INIT
*-- Apuntar al archivo .SWF que se quiera mostrar
*-- THIS.Navigate("C:\MiFlash.swf")
THIS.Navigate("http://www.bna.com.ar")
ENDPROC
ENDDEFINE
Suerte
