Sub CleanPolygon_2()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOverlapFeatureClass 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 sOverlapFileName As String
  Dim fTol As Double
  Dim bOverlap As Boolean
  fTol = 0.00002
  bOverlap = True
  sOutFileName = "c:\00\test_pgdb.mdb\clean_polygons1"
  sOverlapFileName = "c:\00\test_pgdb.mdb\overlaps1"
  Set pOutFeatureClass = ET.CleanPolygon2(pInFeatureClass, sOutFileName, _
                          fTol, bOverlap, sOverlapFileName, pOverlapFeatureClass, 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
  If bOverlap Then
    If Not pOverlapFeatureClass Is Nothing Then
      Set pFeatureLayer = New FeatureLayer
      Set pFeatureLayer.FeatureClass = pOverlapFeatureClass
      pFeatureLayer.Name = pOverlapFeatureClass.AliasName
      pMap.AddLayer pFeatureLayer
    End If
  Else
  End If
End Sub