Creating a ReplicationEventSinkConfig Object

You create a new ReplicationEventSinkConfig object (event sink) by calling the ReplicationServer.AddEventSink method, as in the following example, where ReplSink is the name you give to the new ReplicationEventSink object:

On Error Resume Next
dim ReplServer

set ReplServer = CreateObject("CrsApi.ReplicationServer")
dim ReplSink
set ReplSink = ReplServer.AddEventSink("TestSink")
...

'Release objects
set ReplSink   = Nothing
set ReplServer = Nothing