Visual Basic

<br />
Dim db As dao.Database<br />
db = DBEngine.OpenDatabase("trivial.mdb")<br />
db.Close()<br />

<Serializable()> _
Public Class SampleObject
    Private mName
    Private mData

    Public Sub New()
        Console.WriteLine("Object Created")
    End Sub
 
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal Value As String)
            mName = Value
        End Set
    End Property
 
    Public Property Data() As String
        Get
            Return mData
        End Get
        Set(ByVal Value As String)
            mData = Value
        End Set
    End Property
 
    Public Overrides Function ToString() As String
        Return mName & " " & mData
    End Function
End Class

Public Class Creator
    Inherits MarshalByRefObject

    Public Shared Function CreateSampleObject() As RemotingObject.SampleObject
        Dim NewObj As New RemotingObject.SampleObject
        NewObj.Name = "Hello"
        NewObj.Data = "World"

        Return NewObj
    End Function
End Class

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp

Module Server

    Sub Main()

        RemotingConfiguration.ApplicationName = "Server"
        RemotingConfiguration.RegisterWellKnownServiceType( _ 
                               GetType(Creator), "object.rem", _ 
                               WellKnownObjectMode.SingleCall)

        Dim mChannel As New TcpChannel(1441)
        ChannelServices.RegisterChannel(mChannel)
        mChannel.StartListening(Nothing)
        Console.WriteLine("Listening on port: 1441")
        Console.ReadLine()
        mChannel.StopListening(Nothing)
    End Sub

End Module

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp

Module Client

    Sub Main()

        Dim TCP As New TcpChannel(1441)
        ChannelServices.RegisterChannel(TCP)

        RemotingConfiguration.RegisterWellKnownClientType( _ 
              Type.GetType("RemotingServer.Creator"), _ 
              "tcp://localhost:1441/Server/object.rem")

        Dim NewCreator As Object = Activator.GetObject( _ 
               Type.GetType("RemotingServer.Creator"), _ 
               "tcp://localhost:1441/Server/object.rem")

        Dim NewObj As RemotingObject.SampleObject = _ 
                               NewCreator.CreateSampleObject
        Console.WriteLine(NewObject.ToString)
        Console.ReadLine()

    End Sub

End Module