Imports System
Imports System.ComponentModel
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
 
<Serializable()> _
Public Class Class1
    Inherits System.MarshalByRefObject
 
    Public Overrides Function InitializeLifetimeService() As Object
        Return Nothing
    End Function
 
    Enum Mode
        None
        Server
        Client
    End Enum
 
    Private Shared m_SharedText As String
    Private Shared s_Mode As Mode = Mode.None
    ' port to use
    Const DefaultPort As Integer = 12345
    ' name of the well known object
    Const ObjectName As String = "Class1.remote"
    ' local instance or proxy
    Public Shared s_dx As Class1
 
 
 
 
    Shared Property SharedText() As String
        Get
            SharedText = m_SharedText
        End Get
        Set(ByVal Value As String)
            m_SharedText = Value
        End Set
    End Property
 
    Public Shared Sub InitServer()
        If s_Mode <> Mode.None Then MsgBox("Already initialized")
        ChannelServices.RegisterChannel(New TcpChannel(DefaultPort))
        RemotingConfiguration.RegisterWellKnownServiceType(GetType(Class1), _
          ObjectName, WellKnownObjectMode.Singleton)
 
        s_dx = New Class1
        s_Mode = Mode.Server
    End Sub
 
 
    ' <summary>
    ' Initializes data exchange on the client side
    ' </summary>
    Public Shared Sub InitClient()
        If s_Mode <> Mode.None Then MsgBox("Server/Client already initialized")
        ChannelServices.RegisterChannel(New TcpChannel)
        s_dx = CType(Activator.GetObject(GetType(Class1), String.Format( _
          "tcp://localhost:{0}/{1}", DefaultPort, ObjectName)), Class1)
        s_Mode = Mode.Client
    End Sub
 
    Public Shared ReadOnly Property Instance() As Class1
        Get
            Return s_dx
        End Get
    End Property
 
 
    Private Sub New()
 
    End Sub
End Class