Imports System.ServiceModel
Imports System.Runtime.Serialization

'Contratto
<ServiceContract(namespace:="http://iservice.wcf3.it")> _
Public Interface IService
    <OperationContract()> Function HelloWorld() As String
    <OperationContract()> Function GetPersonalizzato() As TipoPersonalizzato
End Interface

'Tipo personalizzato
<DataContract()> Public Class TipoPersonalizzato
    Private mNome As String
    <DataMember()> Public Property Nome() As String 'Membro da serializzare
        Get
            Return mNome
        End Get
        Set(ByVal value As String)
            mNome = value
        End Set
    End Property

    Private mCognome As String
    <DataMember()> Public Property Cognome() As String 'Membro da serializzare
        Get
            Return mCognome
        End Get
        Set(ByVal value As String)
            mCognome = value
        End Set
    End Property

    Sub New() 'Costruttore vuoto per la deserializzazione
    End Sub

    Friend Sub New(ByVal _Nome As String, ByVal _Cognome As String) 'Costruttore interno per il WCF
        Me.Nome = _Nome
        Me.Cognome = _Cognome
    End Sub
End Class

'Implementazione del contratto
Public Class Service
    Implements IService

    Public Sub New()
    End Sub

    Public Function HelloWorld() As String Implements IService.HelloWorld
        Return "Hello World!"
    End Function

    Public Function GetPersonalizzato() As TipoPersonalizzato Implements IService.GetPersonalizzato
        Return New TipoPersonalizzato("Mario", "Rossi")
    End Function
End Class