C#

        Dim env As SoapEnvelope
        Dim epr As EndpointReference
        Dim client As MyHttpClient
        Dim rs As SoapEnvelope
        Dim bodyResponse As String

        env = New SoapEnvelope
        env.Context.Addressing.Action = New Action("http://tempuri.com/TestWebService/MyService/HelloWorld")
        env.CreateBody()

        env.Body.InnerXml = String.Format("<HelloWorld xmlns=""http://tempuri.com/TestWebService/MyService/"" />")
        epr = New EndpointReference(New Uri("http://localhost/TestWebService/MyService.asmx")) 
        client = New MyHttpClient(epr)

        rs = client.Hello_World(env)
        bodyResponse = rs.Body.OuterXml
        TestReport.Text = bodyResponse




Imports System.Xml
Imports Microsoft.Web.Services2
Imports Microsoft.Web.Services2.Addressing
Imports Microsoft.Web.Services2.Messaging
Imports System.Web

Public Class MyHttpClient
    Inherits SoapClient

    Public msg As String = String.Empty
    Public LoadTesterForm As LoadTesterForm = Nothing

    Public Sub New(ByVal dest As EndpointReference)
        MyBase.New(dest)
    End Sub

    <SoapMethod("http://tempuri.com/TestWebService/MyService/HelloWorld")> _
    Public Function Hello_World(ByVal envelope As SoapEnvelope) As SoapEnvelope
        Dim response As SoapEnvelope

        response = MyBase.SendRequestResponse("HelloWorld", envelope)
        msg = response.Body.OuterXml


        Hello_World = response
    End Function

    Protected Overrides Sub FilterMessage(ByVal envelope As Microsoft.Web.Services2.SoapEnvelope)
        MyBase.FilterMessage(envelope)
    End Sub
End Class