关于类中的事件

类中定义事件
putlic event Tclick()

在类过程中触发类的事件
raiseevent tclick

在窗中使用事件
dim withevents c as class1    '//通知VB对象可以接受一个事件
private sub command_click1()
    set c= new class1
end sub
private sub c_Tclick()    '//可以使用类的事件了！
end sub