Dim myDescription As New ServiceDescription()
myDescription = ServiceDescription.Read("MyWsdl_VB.wsdl")
myDescription.Name = "MyServiceDescription"
Console.WriteLine("Name: " & myDescription.Name)
Dim myMessageCollection As MessageCollection = myDescription.Messages

' Remove the message at index 0 from the message collection.
myMessageCollection.Remove(myDescription.Messages(0))

' Build a new Message.
Dim myMessage As New Message()
myMessage.Name = "AddSoapIn"

' Build a new MessagePart.
Dim myMessagePart As New MessagePart()
myMessagePart.Name = "parameters"
Dim myXmlQualifiedName As New XmlQualifiedName("s0:Add")
myMessagePart.Element = myXmlQualifiedName

' Add MessageParts to the message.
myMessage.Parts.Add(myMessagePart)

' Add the message to the ServiceDescription.
myDescription.Messages.Add(myMessage)
myDescription.Write("MyOutWsdl.wsdl")

Dim myDescription As New ServiceDescription()

' Create a StreamReader to read a WSDL file.
Dim myTextReader = New StreamReader("MyWsdl.wsdl")
myDescription = ServiceDescription.Read(myTextReader)
Console.WriteLine("Bindings are: ")

' Display the Bindings present in the WSDL file.
Dim myBinding As Binding
For Each myBinding In myDescription.Bindings
   Console.WriteLine(myBinding.Name)
Next myBinding

' Create a StreamReader to read a WSDL file.
Dim myStreamReader As New StreamReader("MyWsdl.wsdl")
Dim myDescription As ServiceDescription = _
   ServiceDescription.Read(myStreamReader)
Console.WriteLine("Bindings are :")

' Display the Bindings present in the WSDL file.
Dim myBinding As Binding
For Each myBinding In myDescription.Bindings
   Console.WriteLine(myBinding.Name)
Next myBinding

' Create a new XmlTextWriter with specified URL.
Dim myXmlReader As New XmlTextReader("All_VB.wsdl")
Dim myServiceDescription As ServiceDescription = _
   ServiceDescription.Read(myXmlReader)
myServiceDescription.TargetNamespace = "http://tempuri.org/"

' Remove the service named MathService.
Dim myServiceDescriptionCollection As ServiceCollection = _
   myServiceDescription.Services
myServiceDescriptionCollection.Remove( _
   myServiceDescription.Services("MathService"))