Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports Remote
 
Public Class Main
    Const DefaultPort As Integer = 12345
 
    Public Shared Sub Main(ByVal args() As String)
 
        ChannelServices.RegisterChannel(New TcpChannel(DefaultPort))
        RemotingConfiguration.RegisterWellKnownServiceType(GetType( _
          Remote.RemotingClass), "RemotingClass", WellKnownObjectMode.Singleton)
 
        Console.WriteLine("Server is running...")
        Console.ReadLine()
        Console.WriteLine("Server is shutting down...")
    End Sub
 
End Class

Imports System
 
<Serializable()> _
Public Class RemotingClass
    Inherits System.MarshalByRefObject
 
    Public Overrides Function InitializeLifetimeService() As Object
        Return Nothing
    End Function
 
    Private m_SharedText As String
 
    Public Property SharedText() As String
        Get
            SharedText = m_SharedText
        End Get
        Set(ByVal Value As String)
            m_SharedText = Value
        End Set
    End Property
 
    Private Sub New()
    End Sub
End Class

    Const DefaultPort As Integer = 12345
    Private s_dx As Remote.RemotingClass
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        ChannelServices.RegisterChannel(New TcpChannel)
        s_dx = CType(Activator.GetObject(GetType(Remote.RemotingClass), _
          String.Format("tcp://localhost:{0}/{1}", DefaultPort, _
          "RemotingClass")), Remote.RemotingClass)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Label1.Text = s_dx.SharedText
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        s_dx.SharedText = TextBox1.Text
    End Sub