Code:

Imports System
Imports System.Runtime.InteropServices

Public Class RemClass

    Public Class komanda
        Inherits MarshalByRefObject

        Public Sub posaljiKomandu(ByVal comm As Char)
            Console.WriteLine("Server je naredio komandu: {0}", comm) 
        End Sub
    End Class

    Public Class podatak
        Inherits MarshalByRefObject

        Public Sub posaljiPodatak(ByVal x As Integer)
            Console.WriteLine("Klijent je poslao: {0:x8}", x)
        End Sub
    End Class
End Class

Code:

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

Public Class FormServer

    Private Sub FormServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RemotingConfiguration.RegisterActivatedClientType(GetType(MObject.RemClass.komanda), "tcp://localhost:2001/Client")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Dim nasKlient As New MObject.RemClass.komanda

        Dim input As Char = "M"
        
        Try
            nasKlient.posaljiKomandu(input) 
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
        
    End Sub
End Class

Code:

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

Module ModuleClient

    Sub Main()

        Dim kanal As New TcpChannel(2001)
        ChannelServices.RegisterChannel(kanal, False)

        RemotingConfiguration.ApplicationName = "Client"
        RemotingConfiguration.RegisterActivatedServiceType(GetType(MObject.RemClass.komanda))

        Console.WriteLine("Klijent spreman, Enter za kraj rada")
        Console.ReadLine()
      
    End Sub