Private Event aa As EventHandler
'系统默认事件处理。不带事件参数的事件。
RaiseEvent aa(sender,e)
Public Delegate Sub ChangedTextEvent(ByVal sender As Object,ByVal e As EventArgs)
Public Event SelectTextChanged As ChangedTextEvent
这里我们可以直接定义：
Public Event SelectTextChanged As EventHandler
因为ChangedTextEvent的委托名称和EventHandler的委托名定义格式一样。也就是说：签名一样。
EventHandler 是一个预定义的委托，专用于表示不生成数据的事件的事件处理程序方法。如果事件生成数据，则必须提供自己的自定义事件数据类型，并且必须要么创建一个委托，其中第二个参数的类型为自定义类型，要么使用泛型 EventHandler 委托类并用自定义类型替代泛型类型参数。
Visual Basic（声明）
<SerializableAttribute> _
<ComVisibleAttribute( True)> _
Public Delegate Sub EventHandler(ByVal sender As Object,ByVal e As EventArgs)
<ComVisibleAttribute( True)> _
Public Delegate Sub EventHandler(ByVal sender As Object,ByVal e As EventArgs)
Visual Basic（用法）
Dim instance
As
New EventHandler(
AddressOf HandlerMethod)