Public Class myRemoteClass
    Inherits MarshalByRefObject
    Private ds As DataSet
    Private dt As DataTable
    Public Sub New()
            ds = New DataSet
            dt = New DataTable("OPC")
            
            ds.Tables.Add(dt)
            dt.Columns.Add("invnomid", Type.GetType("System.Int32"))
            dt.Columns.Add("paramid", Type.GetType("System.Int32"))
            dt.Columns.Add("Quality", Type.GetType("System.Int16"))
            dt.Columns.Add("TimeStamp", Type.GetType("System.DateTime"))    
            dt.Columns.Add("Value", Type.GetType("System.Decimal"))
            
    End Sub
    Public ReadOnly Property DataTableOPC() As DataTable
        Get
            DataTableOPC = dt
        End Get

    End Property
End Class

 Shared Sub Main()
        System.ServiceProcess.ServiceBase.Run(New GetParOPC)
        Dim chan As TcpChannel = New TcpChannel( 8085 )
        ChannelServices.RegisterChannel(chan, False)
        RemotingConfiguration.RegisterWellKnownServiceType( _
    GetType(RemoteOPC.myRemoteClass), _
    "RemoteTest", _
    WellKnownObjectMode.SingleCall)
    End Sub

Protected Overrides Sub OnStart(ByVal args() As String)
cc = New CircleClass 'здесь создаём класс, в котором по циклу будет происходить 
'создание объекта класса приложения-сервера (сервера ОРС OPCClass)
End Sub

'В экземпляре OPCClass при вызове метода, который выполняется по таймеру раз в 10 сек, 
'происходит создание серверного объекта
Private ServerObjectFromserverClass As RemoteOPC.myRemoteClass
Public Sub ReadSync()
...
If ServerObjectFromserverClass Is Nothing Then
                        ServerObjectFromserverClass = New RemoteOPC.myRemoteClass
                    Else
                        ServerObjectFromserverClass.DataTableOPC.Clear()
                    End If
r = ServerObjectFromserverClass.DataTableOPC.NewRow()
                        r("invnomid") = CLng(InvNomIDParamID(i,  0 ))
                        r("paramid") = CLng(InvNomIDParamID(i,  1 ))
                        r("Itemid") = ItemIDs(i)
                        r("Value") = CType(Values(i +  1 ), Decimal)
                        r("Quality") = CType(Qualities(i +  1 ), Int16)
                        r("TimeStamp") = CType(TimeStamps(i +  1 ), DateTime)
                        ServerObjectFromserverClass.DataTableOPC.Rows.Add(r)
...
end sub

Private Sub FormParent_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
...
Dim chan As TcpChannel = New TcpChannel()
ChannelServices.RegisterChannel(chan, False)
            
obj = CType(Activator.GetObject(GetType(RemoteOPC.myRemoteClass), _
            "tcp://localhost:8085/RemoteTest"), myRemoteClass) '!при выполнении возникает ошибка-
'Подключение не установлено, т.к. конечный компьютер отверг запрос на подключение 
            
If obj Is Nothing Then
...
Else
MsgBox(obj.DataTableOPC.Rows( 0 )( 0 ))
End If

End Sub