eventa.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 28 行

Imports System

Class C
    Public Event E()

    Public Function S() As Object
        RaiseEvent E()
    End Function
End Class

Class C1
    Dim WithEvents x As C = New C()
    Function call_S() As Object
        x.S()
    End Function

    Sub EH() Handles x.E
        Console.WriteLine("event called")
    End Sub
End Class

Module M
    Function Main() As Integer
        Dim y As New C1
        y.call_S()
    End Function
End Module