在组件中定义的事件引发后怎么不发布呢(急)

Question

套用了代码来自MSDN的用 Visual Basic 创作简单的多线程组件中，将一个在组件中定义的事件引发后，执行程事件处理程序。在原来的示例中能够正确执行。可是可是另建一个新项目时就不行了——引发事件却不能执行事件的委托。我的示例代码如下，请高手帮忙看一下，哪里错了。谢谢!!

 

Public Class Component1 '组件代码
  Public Event handler1(ByVal b As Integer)
  Public Sub test()
    RaiseEvent handler1(2)
  End Sub
End Class

Public Class Form1 '窗体代码(（组件Component1 已添加到窗体，名为Component11）)
  Private Delegate Sub rr(ByVal f As Integer)

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim cp As New Component1
    cp.test()
  End Sub
  Private Sub Component11_handler1(ByVal b As System.Int32) Handles Component11.handler1
    Me.BeginInvoke(New rr(AddressOf kk), New Object() {b}) 'handler1事件引发后，不能到达这里执行委托
  End Sub
  Private Sub kk()

  End Sub
End Class