** mztolo 2007
** menjalankan file AVI kecil
aa=createobject("formku" ) 
aa.addObject("ole1","olecontrol1" ) 
aa.show(1) 
return 
 
DEFINE CLASS formku as form 
PROCEDURE activate  
thisform.Ole1.Open('C:\Program Files\Microsoft Visual FoxPro 8\Graphics\Videos\filecopy.avi' )   && 9,26 kb 
** thisform.Ole1.Open('C:\filecopy.avi' )   && 9,26 kb 
thisform.Ole1.play() 
ENDPROC 
ENDDEFINE 

DEFINE CLASS olecontrol1 as Olecontrol 
OLEClass = "MSComCtl2.Animation.2" 
Top = 1 
Left = 5 
Height = 120 
Width = 336 
Name = "Ole1" 
center = .t. 
visible=.t. 
ENDDEFINE