RaiseEvent能在子类中用吗?

有个工程,代码如下:

子类:(Class1)

Public Event StartRun(byval isRun As Boolean) '声明任务开始事件

Public Sub toRun(ByVal isRun As Boolean)
  RaiseEvent StartRun(isRun)
  MsgBox "已调用" & isRun
End Sub

窗口:(Form1)

Private Sub wToGo()
  Set c = New Class1
  Call c.toRun(True)
End Sub

通过另一个工程调用它

窗口:(Form1)

Private Sub Command1_Click()
  Set myForm= New Class1
End Sub

Private Sub MyForm_StartRun(byval isRun as Boolean)
  Msgbox "dddddd"
End Sub

发现通过外部窗口定义了一个新的CLASS1之后,根本就不响应MyForm_StartRun(byval isRun as Boolean),但之前的msgbox内容("已调用" & isRun)却又会弹出,就是不会弹出ddddd,究竟是什么原因呢?谢谢.

你这代码之间没什么联系把？