Imports System

​

Public Module Module1

    Public Sub Main()

        Dim x As New T()

        x.RaiseTestEvent()

    End Sub

End Module

​

Public Class T

    Public Event MyEvent As EventHandler

    Public Sub RaiseTestEvent()

        ' Does not thrown NullReferenceException, even if no event handler is attached.

        RaiseEvent MyEvent(Me, EventArgs.Empty)

    End Sub

End Class