Imports Gizmox.WebGUI.Forms

Imports System.IO

Public Class DetectBrowserClose

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AddHandler Application.ThreadSuspend, AddressOf Application_ThreadSuspend

    End Sub

    Private Sub Application_ThreadSuspend(ByVal sender As Object, ByVal e As EventArgs)

        Dim f As StreamWriter = New StreamWriter("c:\temp\ts.txt")

        f.WriteLine("Thread suspended " + DateTime.Now.ToString())

        f.Close()

        VWGContext.Current.Terminate(True)

    End Sub

End Class

public void RegisterThreadSuspendHandler()

{

Application.ThreadSuspend += new EventHandler(Application_ThreadSuspend);

}

void Application_ThreadSuspend(object sender, EventArgs e)

{

   using (StreamWriter sw = new StreamWriter(@"c:\temp\ts.txt"))

   {

      sw.WriteLine("Thread suspended " + DateTime.Now.ToString());

   }

   ((IContextTerminate)VWGContext.Current).Terminate(true);

}