Dim Properties As IDictionary = New Hashtable
            Properties("port") = AssemblySettings.GetSetting("ChannelPort")
            Dim ServerProvider As SoapServerFormatterSinkProvider = New _
              SoapServerFormatterSinkProvider
            ServerProvider.TypeFilterLevel = _
            System.Runtime.Serialization.Formatters.TypeFilterLevel.Full
            Dim ClientProvider As SoapClientFormatterSinkProvider = New _
            SoapClientFormatterSinkProvider
            ChannelServices.RegisterChannel(New Http.HttpChannel(Properties, _
            ClientProvider, ServerProvider), False)
 
            RemotingServices.Marshal(Me, "TVCentralPlugin.Instance")

 
    Public Shared ReadOnly Property Instance() As TVCentralPlugin
        Get
            Try
                System.Runtime.Remoting.Channels.ChannelServices.RegisterChanne_
                  l(New _
                  System.Runtime.Remoting.Channels.Http.HttpClientChannel, _
                  False)
            Catch ex As Exception
            End Try
 
            Return CType(Activator.GetObject(GetType(TVCentralPlugin), _
              String.Format("{0}://{1}:{2}/{3}", _
                   AssemblySettings.GetSetting("ChannelRef"), _
                   AssemblySettings.GetSetting("ChannelAddress"), _
                   AssemblySettings.GetSetting("ChannelPort"), _
                   "TVCentralPlugin.Instance")), TVCentralPlugin)
        End Get
    End Property