' This code example demonstrates the Environment.FailFast() 
' method.

Imports System

Class Sample
    Public Shared Sub Main() 
        Dim causeOfFailure As String = "A castrophic failure has occured."

        ' Assume your application has failed catastrophically and must 
        ' terminate immediately. The try-finally block is not executed 
        ' and is included only to demonstrate that instructions within 
        ' try-catch blocks and finalizers are not performed.

        Try
            Environment.FailFast(causeOfFailure)
        Finally
            Console.WriteLine("This finally block will not be executed.")
        End Try

    End Sub 'Main
End Class 'Sample

'
'This code example produces the following results:
'
'(No output is produced because the application is terminated. However, 
'an entry is made in the Windows Application event log, and the log 
'entry contains the text from the causeOfFailure variable.)
'

// This code example demonstrates the Environment.FailFast() 
// method.

using System;

class Sample 
{
    public static void Main() 
    {
    string causeOfFailure = "A castrophic failure has occured.";

// Assume your application has failed catastrophically and must 
// terminate immediately. The try-finally block is not executed 
// and is included only to demonstrate that instructions within 
// try-catch blocks and finalizers are not performed.

    try 
        {
        Environment.FailFast(causeOfFailure);
        }
    finally
        {
        Console.WriteLine("This finally block will not be executed.");
        }
    }
}

/*
This code example produces the following results:

(No output is produced because the application is terminated. However, 
an entry is made in the Windows Application event log, and the log 
entry contains the text from the causeOfFailure variable.)

*/