[source,vbnet]
----
Imports System
Imports JetBrains.Annotations

Public Class Utils
    <TerminatesProgram>
    Public Sub TerminateProgram()
        Environment.FailFast("A catastrophic failure has occurred.")
    End Sub

    Public Sub Method()
        Dim MyObject As Object = Nothing
        TerminateProgram()
        MyObject.ToString() ' Compliant: unreachable
    End Sub
End Class
----