如何：引发事件 (Visual Basic)
更新：2007 年 11 月
此示例定义一个事件 (TimeExpired) 并使用 RaiseEvent 语句导致该事件发生。
示例
Public Event TimeExpired(ByVal Status As String)
Public Sub RaiseTimeExpiredEvent()
RaiseEvent TimeExpired("Your time has run out")
End Sub
此代码示例也可用作 IntelliSense 代码段。在代码段选择器中，它位于“Visual Basic 语言”中。有关更多信息，请参见如何：在代码中插入代码段 (Visual Basic)。
编译代码
此示例需要：
访问 System 命名空间的成员。如果代码中的成员名称没有完全限定，则需要添加一条 Imports 语句。有关更多信息，请参见Imports 语句（.NET 命名空间和类型）。
Event 语句必须处于类级别且不在任何过程内。
RaiseEvent 语句必须处于应用程序中的某个过程内。