动态添加对Web Service的引用

使用静态方法添加对Web Service的引用时，会生成一个Web References的目录，里边有一个Reference.vb或Reference.cs的文件，默认情况下有只有一个构造
        Public Sub New()
            MyBase.New
            Me.Url = "http://10.1.14.34/net/wstest/ws1.asmx"
        End Sub

在使用的时会用下面的代码：
Dim a As New wsr.wstest

如果重写New的话，就可以把Service的地址做为参数传入：
        Public Sub New(ByVal sUrl As String)
            MyBase.New()
            Me.Url = sUrl
        End Sub
这样可以就可以使用下面的代码了
Dim a As New wsr.wstest(“http://www.abc.com/ws/ws1.asmx“)