Here's some code I use:

Protected Overrides Sub OnStart(ByVal args() As String)

Dim ServiceUri As Uri

' This is your Service (inherits from SoapService)

Dim Service As New GenericService

Try

ServiceUri = GetUri()

SoapReceivers.Add(New EndpointReference(ServiceUri), Service)

Catch ex As Exception

Tracing.Instance.Trace(Tracing.ts.TraceError, ex.Message)

' Throw the exception to stop the service from starting

Throw ex

End Try

End Sub

Protected Overrides Sub OnStop()

Dim ThisEPR As New EndpointReference(Me.GetUri())

Try

If (SoapReceivers.Contains(ThisEPR)) Then

SoapReceivers.Remove(ThisEPR)

Tracing.Instance.Trace(Tracing.ts.TraceVerbose, "Removed EndPointReference
from the SoapReceivers collection")

Else

Tracing.Instance.Trace(Tracing.ts.TraceVerbose, "EndPointReference not found
in the SoapReceivers collection.")

End If

Catch ex As Exception

Tracing.Instance.Trace(Tracing.ts.TraceError, ex.Message)

End Try

End Sub

Write your web service just as you normally would. WSE 2 is very powerful in
this way: you can use the same client and the same service for SOAP over TCP
and HTTP.

HTH,