Sub Advanced_Merge()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pMergeFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  Dim sMessage As String
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pFeatureLayer = pMxDoc.SelectedLayer
  If pFeatureLayer Is Nothing Then
    MsgBox "Select a layer in the TOC"
    Exit Sub
  End If
  Set pMergeFeatureClass = pFeatureLayer.FeatureClass
  '=======================================================================
  Dim ET As New ETGW_Core
  Dim sOutFileName As String
  Dim dFuzzy As Double
  Dim sSnapWhat As String
  Dim pBaseLayer As IFeatureLayer
  Dim pBaseFeatureClass As IFeatureClass
  Dim iPriority As Integer
  Set pBaseLayer = ET.GetLayer("Merge")
  If pBaseLayer Is Nothing Then
    Exit Sub
  End If
  Set pBaseFeatureClass = pBaseLayer.FeatureClass
  dFuzzy = 0.000005
  sSnapWhat = "Insert"
  sOutFileName = "c:\00\test_pgdb.mdb\merged_2"
  iPriority = 2 'High priority
  Set pOutFeatureClass = ET.AdvancedMerge(pBaseFeatureClass, pMergeFeatureClass, _
                         sOutFileName, dFuzzy, iPriority, sMessage)
  
  '========================================================================
  If Not pOutFeatureClass Is Nothing Then
    Set pFeatureLayer = New FeatureLayer
    Set pFeatureLayer.FeatureClass = pOutFeatureClass
    pFeatureLayer.Name = pOutFeatureClass.AliasName
    pMap.AddLayer pFeatureLayer
  Else
    MsgBox sMessage
  End If
End Sub