Problema relacionado con Global.Asax

Tengo un problema al contar la cantidad de usuarios
activos en mi aplicacion, cuando entran a /default.aspx
que es donde muestro por pantalla la cantidad de
visitantes, me va sumando respecto al siguiente codigo:
Imports System.Web
Imports System.Web.SessionState

Public Class Global
Inherits System.Web.HttpApplication

#Region " Código generado por el Diseñador de componentes "

Public Sub New()
MyBase.New()

'El Diseñador de componentes requiere esta llamada.
InitializeComponent()

'Agregar cualquier inicialización después de la
llamada a InitializeComponent()

End Sub

'Requerido por el Diseñador de componentes
Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de componentes requiere el
siguiente procedimiento
'Se puede modificar utilizando el Diseñador de
componentes.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
components = New System.ComponentModel.Container()
End Sub

#End Region

Sub Application_Start(ByVal sender As Object, ByVal e
As EventArgs)
' Se desencadena cuando se inicia la aplicación
Application("usr_activos") = 0
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As
EventArgs)
' Se desencadena cuando se inicia la sesión
Session.Timeout = 20
Application.Lock()
Application("usr_activos") = Application
("usr_activos") + 1
Application.UnLock()

End Sub

Sub Application_BeginRequest(ByVal sender As Object,
ByVal e As EventArgs)
' Se desencadena al principio de cada solicitud
End Sub

Sub Application_AuthenticateRequest(ByVal sender As
Object, ByVal e As EventArgs)
' Se desencadena al intentar autenticar el uso
End Sub

Sub Application_Error(ByVal sender As Object, ByVal e
As EventArgs)
' Se desencadena cuando ocurre un error
End Sub

Sub Session_End(ByVal sender As Object, ByVal e As
EventArgs)
' Se desencadena cuando termina la sesión
Application.Lock()
Application("usr_activos") = Application
("usr_activos") - 1
Application.UnLock()


End Sub

Sub Application_End(ByVal sender As Object, ByVal e As
EventArgs)
' Se desencadena cuando termina la aplicación
End Sub

Pero luego cuado un usuario cierra el browser no descuenta
el numero de visitantes que puede estar ocurriendo.


Gracias!

Jorge