Why I wrote above the webservice parameter is the List (Of M_OfficeServerEntity)
When call is M_OfficeServerEntity ()

Error BC30311 type "List (Of M_OfficeServerEntity) value" cannot be converted to "M_OfficeServerEntity ()",

The code

 
Dim _OfficeServerList As List (Of Office_Service M_OfficeServerEntity)=New List (Of Office_Service. M_OfficeServerEntity) 

For Each mOffice mOfficeList In 
Dim _mOfficeServer As Office_Service. M_OfficeServerEntity=New Office_Service. M_OfficeServerEntity () 
_mOfficeServer. OfficeCode=mOffice. OfficeCode 
_OfficeServerList. Add (_mOfficeServer) 
Next 

"' call webservice method 
Webservice. SyncOfficeData (_OfficeServerList) 

"' webservice code 
The Public Function SyncOfficeData (ByVal _Officedata As List (Of M_OfficeServerEntity)) As an Integer 
Try 
Dim the result As Integer=0 

Return the result 
Catch the ex As Exception 
Throw New Exception (" SyncOfficeData ", the ex) 
End the Try 
End the Function 

How to modify