long   ret,i 
kmehrresponse Struture_de_retour 
kmehrrequesttranslist Struture_d_envoi 
string retour 
countrytest envoi 
cdtest CT 
SoapConnection conn 
main    proxy //ServiceProxy is a proxy generated by Web service 
//wizard 


TRY 


   conn = CREATE  SoapConnection 
   ret = conn.CreateInstance(proxy, "main") 
   IF  (ret <> 0)then 
       MessageBox("Fail", "Cannot create proxy "+ "main") 
   ELSE 
CT.value = "testget" 
envoi.ws_cdtest = CT 
retour = proxy.gettest(envoi,30) 
MessageBox("WebService OK ", "Return  -> " + retour) 


   END IF 

Public Function GetTest(ByVal r As TestGetClass.countryTest, ByVal 
TimeoutEnSecondes As Integer) As String 
        Dim res As String = String.Empty 
        Try 
            res = r.cdTest.Value 
        Catch ex As Exception 

        End Try 
        Return res 
    End Function 


with 


Namespace TestGetClass 
    Public Class countryTest 


        '<remarks/> 
        Public cdTest As cdTest 
    End Class 
       Public Class cdTest 


              Public S As String 


              Public SV As String 


             Public SL As String 


             Public DN As String 


             Public L As String 


       Public Value As String 
    End Class 
End Namespace