求教vb面向对象编程问题，急急！！

Question

dim withevents m_comm as mscomm

Answer 1

自定义事件使用 Event 关键字声明事件：Event SomethingHappened(   ByVal HowMuch As Double, _
      ByVal When As Date)引用控件，如楼上所说可行

Answer 2

 
   
***各位高手请赐教：
**** 小弟为一面向对象编程的初学者，现就以下问题向大家讨教，在一类模***块中如何才能使用一控件，或引用一控件，因为我想使用这个控件的一个***事件，不知是否可行？例如在类模块中使用，mscomm控件的oncomm事件，***应如何使用？
***  请指教具体的语句，或相关资料。
**** 回复必送分！！！谢！
   
 
private sub class_initialize()
  dim mymscomm as mscomm
  set myscomm =new mscomm1
  myscomm.portopen=true
  myscomm.comport=3
end sub
private myscomm_oncomm()
  select case.......
不知能否在类模块这样使用？？

Answer 3

处理对象的事件 
引发事件的对象叫做事件源。为了处理事件源所引发的事件，可以用 WithEvents 关键字声明对象类的变量。本主题继续讨论上面的“声明和引发事件”中开始的 Widget 对象示例。为了处理 Widget 的 PercentDone 事件，将下面的代码放置到 Form1 的声明部分：Option Explicit
Private WithEvents mWidget As Widget
Private mblnCancel As BooleanWithEvents 关键字指定：变量 mWidget 将用于处理对象的事件。可以通过提供类名来指定对象类型，该类是创建这个对象的类。变量 mWidget 是在“Form1”的声明部分所声明的，因为 WithEvents 变量必须是模块级的变量。这是正确的，而不管将它们放置其中的模块类型如何。