下面有一个例子它用找开类库的方法来调用自定义类(内有类的自定义属性，方法)我想不用类库，把自定义中的全部内容放在.prg中，不知如何写法？请指教。具件体内容及运行结果见附件。
1。xx.prg内容
public oform
set classlib to d:\51ls\mylibrary.vcx  &&打开类库
oform=createobject("form1")
oform.visible=.t.
define class form1 as form
caption="类示例"
height=100
name="form1"
add object command1 as commandbutton with;
top=10,;
left=10,;
height=25,;
width=100,;
caption="显示“取消”",;
naem="command1"
add object command2 as commandbutton with;
top=50,;
left=10,;
height=25,;
width=100,;
caption="显示“关闭”",;
naem="command2"
add object cancel1 as cancel with ;
top=10,;
left=150,;
height=60,;
width=170,;
iscancelclose=1,;
naem="cancel1"
proc command1.click     &&单击command1按钮，将执行cancel1的showcancelclose方法并传递参数0
thisform.cancel1.showcancelclose(0)&&cancel1中按钮的标题将显示为"取消"
endproc
proc command2.click
thisform.cancel1.showcancelclose(1)
endproc
enddefin
2。cancel类的内容
cacel的showcancelclose方法中的代码  &&showcancelclose方法在设计器中设置
lpara niscancelclose
if vartype(niscancelclose)#"N"
messagebox("参数类型错误!",0+48,"提示")
return
endif
do case
case  niscancelclose=0
取消"
case  niscancelclose=1
关闭"
othe
messagebox("参数类型错误!可以传递的参数为0,1",0+48,"提示")
endcase
3.cacel的init事件
if this.iscancelclose=0
    取消"
   else
   this.iscancelclose=1
    关闭"
 endif
4。iscancelclose为自定义属性&&在设计器中设置、
5类中对象command1的click 代码
release thisform
我想把2,3，4,5 这三块内容全部定义在xx.prg中，不用类库。把类庫的内容全部整合在xx.prg中。

TonyDeng:
麻烦您，有便时能否把我的上述VCX的一些东西贴到prg中去好吗？简单的会弄，复杂的没有头绪。有了上述的一个样本，新旧对照，理介得了，照样画图我慢慢体会。好吗？先谢了。

cnfarer:
按你的办法真行，原来类浏览器里面都有代码，只要把它复制到PRG中即可。多谢了。还真不知道还有此法，学习真是不够深入。

TonyDeng楼兄：
不要劳神了，谢谢。我按照cnfarer兄的指教用类游览器把里面的代码放入PRG中即可，成功了。