'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")