ASP Net Instroduction ASP.Net Tutorial

Imports System.Web
Imports System.Web.SessionState
Public Class Global Inherits System.Web.HttpApplication
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        Dim myEventLog As System.Diagnostics.EventLog
        Dim ex As Exception = Server.GetLastError()
        myEventLog = New System.Diagnostics.EventLog()
        myEventLog.Log = "Application"
        myEventLog.Source = "Default"
        myEventLog.WriteEntry(ex.ToString())
    End Sub
End Class