如何：创建事件和处理程序 (Visual Basic)
更新：2007 年 11 月
此示例定义事件 TimeExpired 和事件处理程序 HandleTimeExpired，并且使用 AddHandler 语句将它们相关联。
示例
Public Event TimeExpired(ByVal Status As String)
Public Sub HandleTimeExpired(ByVal Status As String)
' Perform desired processing for when time has expired.
MsgBox("HandleTimeExpired caught the TimeExpired event" & _
vbCrLf & "Status = " & Status)
End Sub
Public Sub SetUpEventHandler()
AddHandler TimeExpired, AddressOf HandleTimeExpired
End Sub
编译代码
此示例需要：
访问 System 命名空间的成员。如果没有在代码中完全限定成员名称，请添加 Imports 语句。有关更多信息，请参见 Imports 语句（.NET 命名空间和类型）。
Event 语句处于类级别且不在任何过程内。
Event 语句和两个过程（HandleTimeExpired 和 SetUpEventHandler）都是在同一类或模块中定义的。否则，AddHandler 语句必须将该事件和处理程序限定为在其中定义了它们的对象。