帮我看看,Class类事件咱怎么也无法触发,搞不懂到底哪出问题了.

我在一个写Class时,需要Class内部触发一个事件外面接收,可是我试了N次,就是无法触发外部函数
大家帮我看看,一个Form ,一个Class
Class代码很简单,一个循环,代码如下'-----------------------------------------------------------
'Name:   clsTest
'声明事件Public Event DoMything( nNum As Integer)Public Sub TestEvent(nNum as integer)
   Dim i As Integer
   For i = 1 To nNum
      If i > 10 Then
         RaiseEvent DoMything(i)
      End If
      debug.Print i
   Next
End Sub'-------------------------------------------------------------
'Name  FrmTest
'Event 测试窗体'定义事件类Private WithEvents oEle As clsTestPrivate Sub Form_Load()
   Set oEle = New clsTest
   
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Set oEle = Nothing
End SubPrivate Sub DoMything(nNum As Integer)
   
   MsgBox "超过了啦:" & nNum  
  
End SubPrivate Sub Command1_Click()
   oEle.TestEvent 11   '调用类函数,将触发类事件DoMything,可是就是没有触发
End Sub'---------------------------------------------各位大大,救命哪,代码就几行,我描了不下十遍