下面示例用 define class 和 createobject( ) 从 visual foxpro 表单基类中创建两个名为
ormchild 和 formgrandchild 的自定义类。list objects 列出有关对象及其属性的信息。
clear
frmmyform = createobject("formgrandchild")
list objects like frm*
release frmmyform
define class formchild as form
enddefine
define class formgrandchild as formchild
enddefine