... oVideo:Play() } ACTIVATE DIALOG oDlg; ON INIT ( oVideo:oMci := TMci():New( "MPEGVideo!", cFile, oVideo ),; oVideo:oMci:lOpen( cFile,,oVideo ),; oVideo:Play() ,; oVideo:SetFocus(),; oDlg:Center() ); VALID ( Salir( oDlg, oVideo ) ) oVideo:End() DeleteObject( oVideo ) Return ...