DouKaku?

' Remote Object
Public Class RemoteClass
    Inherits MarshalByRefObject
    Public Function PriceString(ByVal value As Integer, ByVal saving As Integer) As String
        Return String.Format("販売価格 {0}円 (定価{1}円から{2}%引き)", (value * (100 - saving) / 100).ToString("N0"), value.ToString("N0"), saving)
    End Function
End Class
　
' Server
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels

Module ServerModule
    Sub Main()
        ChannelServices.RegisterChannel(New Http.HttpChannel(8088), False)
        RemotingServices.Marshal(New RemoteClass, "Price")
        Console.ReadLine()
    End Sub
End Module

' Client
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels

Module ClientModule
    Sub Main()
        ChannelServices.RegisterChannel(New Http.HttpChannel, False)
        Dim t As DateTime = Now
        For i As Integer = 1 To 10000
            CType(Activator.GetObject(GetType(RemoteClass), "http://localhost:8088/Price"), RemoteClass).PriceString(2000, 20)
        Next
        Console.WriteLine(Now.Subtract(t).TotalMilliseconds)
    End Sub
End Module