声明事件源变量：Public WithEvents name as type
添加事件：Public/private Event name(para1,para2)
产生事件消息：RaiseEvent name(para1,para2)
(1) 对象作为事件源，窗口接收
对象为类的一个实例。所以在窗口中需要建立一个相同类的事件源变量。再类模块中响应事件。
然后再form窗口中创建一个事件源变量。
创建事件源变量的class1的实例。
在窗口中调用 产生事件的sub过程。
(2)窗口产生事件，类模板接收并处理。
在窗口中声明事件，并在窗口中产生事件。让类模块接收处理。 所以，在类模块中声明一个form1类的事件源变量。而事件只能有类的实例对象来接受，所以必须创建类模块的一个实例myobj。 然后设置事件源变量的实例Me。设置事件源变量的时候可以创建属性过程。属性过程可以创建只读，只写的属性。用属性过程进行限制。 再在form中响应时间RaiseEvent就可以执行操作了。