VB中的类如何处理？在线等

[yswenli]

请问下各位高手，在VB6.0中写一个最简单的类，这个类有一个函数(方法)Fun、并在该函数上触发这个类的一个事件Evn1，有一个共有属性，当该属性被改变时，触发这个类的另一事件Evn2
请问如何处理。我从未接触这个内容，请详细点好吗？

[feiyun0112]

触发事件

raiseevent Evn1

*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

[迈克揉索芙特]

Private mTestPro As Long
Public Event Evn1()
Public Event Evn2()

Sub TestFun()
RaiseEvent Evn1
End Sub

Property Set TestPro(ByVal Value As Long)
mTestPro = Value
RaiseEvent Evn2
End Property

[yswenli]

真的很对不起我对上面的代码不是很清楚
我说过我没有接触过这个方面的内容
你能不能用文字描述一下啊