仅是示例

1.新建项目
2.新建程序（code）
代码如下
define CLASS my as Custom olepublic
PROCEDURE saygood
USE ls1
copy TO ls type xl5
use
endproc
enddefine
3.编译
单线程/COM服务

说明:
实例有三种选项：不可创建、单独使用、多重使用。
(1).如果我们选择“不可创建”，那么即使把代码编译成为COM组件（进程内或是进程外），这个组件都不能作为COM对象被使用，而只能作为普通的Visual FoxPro类在Visual FoxPro内部使用；
(2).单独使用与多重使用的区别在于，在系统中组件建立多少个实例应付客户请求。这个选项只对进程外组件或单线程的进程内组件有效

单独使用时,COM组件产生多个实例
多重使用时,COM组件产生一个实例

4.调用
将生成的dll文件与主程序放在同一目录下
ox=CREATEOBJECT("xm.my")  && xm为dll文件名
ox.saygood  && saygood是其中的一个过程