'Usage
Dim serviceType As Type
Dim baseAddresses As Uri()
Dim returnValue As ServiceHost
returnValue = Me.CreateServiceHost(serviceType, _
baseAddresses)
'Declaration
Protected Overridable Function CreateServiceHost ( _
serviceType As Type, _
baseAddresses As Uri() _
) As ServiceHost