Private Sub TransmissionButton_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles TransmissionButton.ItemClick
         Dim ipcCh As New IpcChannel("myClient")
        ChannelServices.RegisterChannel(ipcCh, False)

        Dim obj As IRemotingObject.IRemoteObject = DirectCast(Activator.GetObject(GetType(IRemotingObject.IRemoteObject), "ipc://IPCChannelForReplica/RemotingServer"), IRemotingObject.IRemoteObject)

        obj.ReplicaTaskManual()

        ChannelServices.UnregisterChannel(ipcCh)
    End Sub