PublicClass MyHttpModuleClass MyHttpModule Implements IHttpModule PublicSub Init()Sub Init(ByVal application As HttpApplication) Implements IHttpModule.init AddHandler application.BeginRequest, AddressOf Application_BeginRequest AddHandler application.EndRequest, AddressOf Application_EndRequest End Sub PrivateSub Application_BeginRequest()Sub Application_BeginRequest(ByVal source AsObject, ByVal e As EventArgs) Dim Application As HttpApplication =CType(source, HttpApplication) Dim Response As HttpResponse = Application.Context.Response Response.Write("<h1>Beginning of Request</h1><hr>") End Sub PrivateSub Application_EndRequest()Sub Application_EndRequest(ByVal source AsObject, ByVal e As EventArgs) Dim application As HttpApplication =CType(source, HttpApplication) Dim Response As HttpResponse = application.Context.Response Response.Write("<h1>End of Request</h1><hr>") End Sub PublicSub Dispose()Sub Dispose() Implements IHttpModule.Dispose End Sub End Class