Public Class myone
Public name As String
End Class
<WebMethod()> _
Public Function Hello() As myone
Dim x As New myone
x.name = "hello"
Return x
End Function
Dim client As New servicereference.Service
Dim webobject As servicereference.myone = client.Hello()
msgbox(webobject.name)
<WebMethod> _
Public Sub ExecuteObjectMethod(ByVal MyBusiness As business)
Try
'execute MyBusiness
Return True
Catch ex As Exception
sPoruka = ex.ToString
End Try
End Function