Network Remote VB.Net

///////////////////////////////////general.vb
// Compile: vbc /target:library  general.vb
Imports System
Public Class MyRemoteObject
    Inherits MarshalByRefObject
    Private myvalue As Integer
    Public Sub New()
        Console.WriteLine("MyRemoteObject.Constructor: New Object created")
    End Sub 'New
    Public Sub New(ByVal startvalue As Integer)
        Console.WriteLine("MyRemoteObject.Constructor: .ctor called with {0}", _
            startvalue)
        myvalue = startvalue
    End Sub
    Public Sub setValue(ByVal newval As Integer)
        Console.WriteLine("MyRemoteObject.setValue(): old {0} new {1}", _
            myvalue, newval)
        myvalue = newval
    End Sub
    Public Function getValue() As Integer
        Console.WriteLine("MyRemoteObject.getValue(): current {0}", _
            myvalue)
        Return myvalue
    End Function
End Class
///////////////////////////////////test.vb
// Compile: vbc /t:exe /r:general.dll test.vb
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels.Http
Imports System.Runtime.Remoting.Channels
Module Client
    Sub Main()
        Dim channel As New HttpChannel()
        ChannelServices.RegisterChannel(channel,false)
        RemotingConfiguration.RegisterActivatedClientType( _
            GetType(MyRemoteObject), "http://localhost:1234/MyServer")
        Console.WriteLine("Client.Main(): Creating first object")
        Dim obj1 As New MyRemoteObject()
        obj1.setValue(42)
        Console.WriteLine("Client.Main(): Creating second object")
        Dim obj2 As New MyRemoteObject()
        obj2.setValue(11)
        Console.WriteLine("Obj1.getValue(): {0}", obj1.getValue())
        Console.WriteLine("Obj2.getValue(): {0}", obj2.getValue())
    End Sub
End Module
///////////////////////////////////server.vb
// vbc /target:exe  /r:general.dll server.vb
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels.Http
Imports System.Runtime.Remoting.Channels
Module ServerStartup
    Sub Main()
        Console.WriteLine("ServerStartup.Main(): Server started")
        Dim chnl As New HttpChannel(1234)
        ChannelServices.RegisterChannel(chnl,false)
        RemotingConfiguration.ApplicationName = "MyServer"
        RemotingConfiguration.RegisterActivatedServiceType( _
            GetType(MyRemoteObject))
        
        Console.ReadLine()
    End Sub
End Module