Cita:
Iniciado por tazzito 
yo hice algo asi y no es complicado te paso el codigo
agrega si la referencia al soapclient 30
Dim MiSoapWS As New SoapClient30
'On Local Error Resume Next
MiSoapWS.MSSoapInit Ruta ? Wsdl
If Me.Combo1.ListIndex = 0 Then
Text1.Text = MiSoapWS.Metodo1(parametros)
ElseIf Me.Combo1.ListIndex = 1 Then
Text1.Text = MiSoapWS.metodo2(parametros)
Else
Text1.Text = MiSoapWS.metodofececto(parametros)
End If
Set MiSoapWS = Nothing
y listo en el text1 aparece el resultado entregado por el web service
como quedaria con esta servicio web
http://www.elguille.info/NET/WebServ...MundoWebS.asmx