Dim test As New SQLMERGXLib.SQLMerge
        With test
            .Publisher = "SAMAS-TERMINAL"
            .PublisherDatabase = "BEFUNDSQL"
            .Publication = "BEFUNDSQL"
            .PublisherSecurityMode = SQLMERGXLib.SECURITY_TYPE.DB_AUTHENTICATION
            .PublisherLogin = "bla"
            .PublisherPassword = "bla"
 
            .Distributor = "SAMAS-TERMINAL"
            .DistributorSecurityMode = _
              SQLMERGXLib.SECURITY_TYPE.DB_AUTHENTICATION
            .DistributorLogin = "bla"
            .DistributorPassword = "bla"
 
            .Subscriber = System.Environment.MachineName
            '.SubscriberDatabase = "samastestsql"
            .SubscriberDatasourceType = SQLMERGXLib.DATASOURCE_TYPE.SQL_SERVER
            .SubscriberSecurityMode = _
              SQLMERGXLib.SECURITY_TYPE.DB_AUTHENTICATION
            .SubscriberLogin = "bla"
            .SubscriberPassword = "bla"
 
            .SubscriptionType = SQLMERGXLib.SUBSCRIPTION_TYPE.PULL
            .SynchronizationType = SQLMERGXLib.SYNCHRONIZATION_TYPE.AUTOMATIC
 
            Try
                .AddSubscription(SQLMERGXLib.DBADDOPTION., _
                  SQLMERGXLib.SUBSCRIPTION_HOST.NONE)
                .Initialize()
                .Run()
                .Terminate()
            Catch ex As SqlClient.SqlException
                ex.ToString()
            End Try
        End With