vb.net中自定义事件的使用方法

'VB.net 自定义事件使用方法
'1.先定义包含事件的类（如下）

Public Class TestEvent
    Public Event MyEvent(ByVal s As String)     '自定义事件
   
    Public Sub StartEvent(ByVal value As String) '触发事件函数
        RaiseEvent MyEvent(value)          '触发事件
    End Sub
End Class

'2.在使用事件的类中添加如下代码
  
      '声明事件对象
      Private WithEvents mEvent As TestEvent
      '实例化
      mEvent = New TestEvent
      '处理事件函数 注意：函数名必须为 变量名_事件名
       Private Sub mEvent_MyEvent(ByVal s As String) Handles mEvent.MyEvent
           MsgBox(s)
       End Sub
       '触发事件
      mEvent.StartEvent("11111")

3.
      '声明事件对象
      Private mEvent As TestEvent
     '实例化以及绑定处理函数
       mEvent = New TestEvent
         AddHandler (mEvent.MyEvent), AddressOf OnMyEvent   

      '处理事件函数
        Private Sub OnMyEvent(ByVal s As String) Handles mEvent.MyEvent
            MsgBox(s)
        End Sub    
          '触发事件
      mEvent.StartEvent("2222222")