"自定义事件"如何在VB.Net中运行？

Public Class CustomEventClass
    Public Event CustomEvent As EventHandler(Of CustomEventArgs)

    Public Sub TriggerCustomEvent(ByVal message As String)
        RaiseEvent CustomEvent(Me, New CustomEventArgs(message))
    End Sub
End Class

Public Class CustomEventArgs
    Inherits EventArgs

    Public Property Message As String

    Public Sub New(ByVal message As String)
        Me.Message = message
    End Sub
End Class

Dim customEventClass As New CustomEventClass()

AddHandler customEventClass.CustomEvent, Sub(sender, e)
                                             Dim eventArgs As CustomEventArgs = CType(e, CustomEventArgs)
                                             Console.WriteLine($"自定义事件触发，消息：{eventArgs.Message}")
                                         End Sub

customEventClass.TriggerCustomEvent("Hello, World!")