哪位能帮我把这段C#的代码改成VB的，给你100分，我对VB不太熟，谢谢

Question

用Implements 关键字来实现继承接口。

Answer 1

Imports System
Imports System.Web
Namespace MyHttpModule
'/ <summary>
'/ MyHttpModule 的摘要说明。
'/ </summary>
Public Class MyHttpModule
 Implements IHttpModule
Public  Sub New()
'
' TODO: 在此处添加构造函数逻辑
'
End Sub
Private  Sub Application_BeginRequest(ByVal obj As Object, ByVal e As EventArgs)
Dim application As HttpApplication = CType(obj, HttpApplication)
Dim context As HttpContext = application.Context 
Dim response As HttpResponse = context.Response 
Dim request As HttpRequest = context.Request 
response.Write("Application_BeginRequest<br>")
response.Write(context.Request.Url.ToString()  + "<br>")
End Sub
Public  Sub Init(ByVal application As HttpApplication)
application.BeginRequest+=New EventHandler(Me.Application_BeginRequest)
application.AuthorizeRequest+=New EventHandler(Me.Application_AuthorizeRequest)
End Sub
Private  Sub Application_AuthorizeRequest(ByVal source As Object, ByVal e As EventArgs)
Dim application As HttpApplication = CType(source, HttpApplication)
Dim context As HttpContext = application.Context 
context.Response.Write("Application_AuthorizeRequest<br>")
End Sub
 
Public  Sub Dispose()
End Sub
 
 
End Class
End Namespace工具转的。给分吗？

Answer 2

http://aspxcn.com/download/2002717162927.rar