BaseObjectSpace.NonPersistentChangesEnabled Property

public class Program {
    //...
    public static void Main(string[] arguments) {
        //...
        winApplication.Setup();
        winApplication.ObjectSpaceCreated += winApplication_ObjectSpaceCreated;
        winApplication.Start();
        //...
    }
    static void winApplication_ObjectSpaceCreated(object sender, ObjectSpaceCreatedEventArgs e) {
        BaseObjectSpace os = e.ObjectSpace as BaseObjectSpace;
        if (os != null)
            os.NonPersistentChangesEnabled = true;
    }
}

Public Class Program
    '...
    Public Shared Sub Main(ByVal arguments() As String)
        '...
        winApplication.Setup()
        AddHandler winApplication.ObjectSpaceCreated, AddressOf winApplication_ObjectSpaceCreated
        winApplication.Start()
        '...
    End Sub
    Private Shared Sub winApplication_ObjectSpaceCreated(ByVal sender As Object, _
    ByVal e As ObjectSpaceCreatedEventArgs)
        Dim os As BaseObjectSpace = TryCast(e.ObjectSpace, BaseObjectSpace)
        If os IsNot Nothing Then
            os.NonPersistentChangesEnabled = True
        End If
    End Sub
End Class

public class Global : System.Web.HttpApplication {
    //...
    protected void Session_Start(object sender, EventArgs e) {
        WebApplication.SetInstance(Session, new MySolutionWebApplication());
        WebApplication.Instance.ObjectSpaceCreated += Instance_ObjectSpaceCreated
        //...
        WebApplication.Instance.Setup();
        WebApplication.Instance.Start();
    }
    void Instance_ObjectSpaceCreated(object sender, ObjectSpaceCreatedEventArgs e) {
        BaseObjectSpace os = e.ObjectSpace as BaseObjectSpace;
        if (os != null)
            os.NonPersistentChangesEnabled = true;
    }
}

Public Class [Global]
    Inherits System.Web.HttpApplication
    '...
    Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        WebApplication.SetInstance(Session, New MySolutionWebApplication())
        '...
        AddHandler WebApplication.Instance.ObjectSpaceCreated, AddressOf Instance_ObjectSpaceCreated
        WebApplication.Instance.Start()
    End Sub
    Private Sub Instance_ObjectSpaceCreated(ByVal sender As Object, _
    ByVal e As ObjectSpaceCreatedEventArgs)
        Dim os As BaseObjectSpace = TryCast(e.ObjectSpace, BaseObjectSpace)
        If os IsNot Nothing Then
            os.NonPersistentChangesEnabled = True
        End If
    End Sub
End Class