类的小问题

[yuanzhang]

DEFINE CLASS zhangsan2 AS FORM
Visible=.t.
Backcolor=rgb(0,0,128)
Caption='我的表单'
Left=20
Top=10
Height=255
Width=443
Fontname='楷体'
Fonsize=16
Forecolor=rgb(255,0,0)
ADD OBJECT comm1 AS COMMANDBUTTON
WITH Caption='关闭',visible=.t.,;
Backcolor=rgb(0,128,0),Left=220,;
Top=110,Height=40,;
Width=60, Fontname='宋体',;
Fontsize=20,Forecolor=rgb(0,255,0),;
PROCEDURE comm1.click
st=Messagebox('您的确要关闭这个表单',4+16+0,'对话窗口')
if st=6
Release thisform
endif
endproc
endproc
enddefine
这是我用程序定义的一个类，请问在程序中怎么用呢，如何看到它的运行结果？我对类的使用情况不大清楚，各位大侠给讲讲吧

[xclzteb]

楼上对的。然后加上表单的show事件就可以看到效果了。

[LAIYANGPJ]

这个自定义类的调用与调用过程的方法类似.(这里假定你的类名为LVCX.PRG)
SET PROCEDURE TO LVCX.PRG
OLVCX=CREATEOBJECT('ZHANGSAN2') &&创建对象
.
.
.