Imports System.ServiceModel

Module Module1

    Sub Main()
        Dim t As Type = GetType(Class1)
        Using host As New ServiceHost(t)
            host.Open()
            Console.WriteLine("Service started...")
            Console.ReadLine()
        End Using
    End Sub

End Module

Imports System.ServiceModel

<ServiceContract()> _
Public Class Class1

    <OperationContract()> _
    Public Function Add(ByVal x As Integer, ByVal y As Integer) As Class2
        Return New Class2(x, y)
    End Function

    <OperationContract()> _
    Public Function GetDate() As String
        Return Date.Now.ToString
    End Function

End Class

Public Class Class2

    Public x As Integer
    Public y As Integer

    Public Sub New(ByVal x As Integer, ByVal y As Integer)
        Me.x = x
        Me.y = y
    End Sub

End Class

<?xml version="1.0" encoding="utf-8" ?>
<configuration>

  <system.serviceModel>
    <services>
      <service
          name="test_WCF.TestService"
          behaviorConfiguration="TestServiceBehavior">
        <endpoint address="http://localhost:8000/TestServiceBehavior/service/"
                  binding="wsHttpBinding"
                  contract="test_WCF.ITestService" />
        <endpoint name="Mex"
                  address="http://localhost:8000/TestServiceBehavior/service/mex/"
                  binding="mexHttpBinding"
                  contract="IMetadataExchange" />
      </service>
    </services>

    <behaviors>
      <serviceBehaviors>
        <behavior name="TestServiceBehavior">
          <serviceMetadata />
          <serviceDebug includeExceptionDetailInFaults="False" />
        </behavior>
      </serviceBehaviors>
    </behaviors>

  </system.serviceModel>

</configuration>