<ServiceContract()> _
Public Interface IUpdater
    <OperationContract()> _
    Function NeedUpdate(ByVal version As Version) As Boolean
End Interface
 
Public Class Updater
    Implements IUpdater
 
    Public Function NeedUpdate(ByVal version As System.Version) As Boolean _
      Implements IUpdater.NeedUpdate
        If version.Major > 5 Then
            Return False
        Else
            Return True
        End If
    End Function
End Class
 
 
Module Module1
    Private WithEvents mService As ServiceHost
 
    Sub Main()
        Do
            Console.WriteLine("")
            Console.Write("> ")
            Dim s As String = Console.ReadLine
            Select Case s.ToUpper
                Case "EXIT"
                    Exit Do
                Case "OPEN"
                    mService = New ServiceHost(GetType(Updater))
                    mService.Open()
                Case "CLOSE"
                    mService.Close()
                Case "STATE"
                    If mService IsNot Nothing Then
                        Console.WriteLine("State: " & mService.State.ToString)
                    Else
                        Console.WriteLine("State: Not Created")
                    End If
                Case "CLEAR"
                    Console.Clear()
            End Select
        Loop
    End Sub
 
End Module

  <system.serviceModel>
    <services>
      <service name="UpdateHost.Updater">
        <endpoint address="" binding="wsHttpBinding" _
          contract="UpdateHost.IUpdater" />
        <host>
          <baseAddresses>
            <add baseAddress="http://localhost:4720/Updater" />
          </baseAddresses>
        </host>
      </service>
    </services>
  </system.serviceModel>