vb6.0如何调用webservice

获取个人编号

函数名称：traceQueryTargetA

传入参数：

字符型year 年仹;

字符型areaId 地区编号;

字符型name 病人姓名;

字符型medicalNo 病人医疗证号;

返回数据：字符型 个人编号

例程：

ls_personId=iws_proxy_obj.tracequerytargeta(ls_year,ls_xqbh,ls_name,ls_ylzhm) 

下面是PB实现的，不知道VB如何实现啊
PowerBuilder实例代码 

3.1 声明 

//发量声明 

soapconnection i_conn 

xfire客户端interfacehttpport iws_proxy_obj 

//webservie调用 

i_conn = create soapconnection 

string endpoint='http://客户端interface.hnhzyl.com/客户端Interface/services/客户端
Interface?wsdl' 

//ll_result=i_conn..createinstance(iws_proxy_obj,"xfire客户端
interfacehttpport","http://61.163.77.36:8080/客户端Interface/services/客户端
Interface?wsdl") 

ll_result = i_conn.createinstance(iws_proxy_obj,"xfire客户端interfacehttpport")  --------------------编程问答-------------------- 使用vb6.0调用需下载msSoapToolkit20.exe添加引用：Microsoft Soap Type Library 位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll”    调用方法：    Dim cc As New MSSOAPLib.SoapClient    例程：    新建工程标准EXE添加3个textbox控件，text1,text2,text3添加一个button控件Command1    代码如下：    Option ExplicitDim cc As New MSSOAPLib.SoapClientPrivate Sub Command1_Click()cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL"Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))End Sub4．9使用vbscript调用需下载msSoapToolkit20.exe引用：MSSOAP.SoapClient --------------------编程问答-------------------- 如果wsdl文件不符合wsi呢？mssoapinit初始化出错，能否使用低层api？ 

补充：VB ,  网络编程