Sub Eliminate()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  Dim sMessage As String
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pFeatureLayer = pMxDoc.SelectedLayer
  Set pInFeatureClass = pFeatureLayer.FeatureClass
  '=======================================================================
  Dim ET As New ETGW_Core
  Dim sOutFileName As String
  Dim sSelMethod As String
  Dim dThickness As Double
  Dim sElimMethod As String
  Dim sWhereClause As String
  sSelMethod = "Attrib"
  sElimMethod = "Longest"
  sWhereClause = "Marker = 'Sliver'"
  sOutFileName = "c:\00\zzz1.shp"
  dThickness = 0
  Set pOutFeatureClass = ET.Eliminate(pInFeatureClass, sOutFileName, _
                                     sSelMethod, dThickness, sElimMethod, _
                                     sWhereClause, sMessage)
  '========================================================================
  If pOutFeatureClass Is Nothing Then
    MsgBox sMessage
    Exit Sub
  End If
  Set pFeatureLayer = New FeatureLayer
  Set pFeatureLayer.FeatureClass = pOutFeatureClass
  pFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pFeatureLayer
End Sub