Sub BatchErase()
  Dim ET As ETGW_Core
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFL1 As IFeatureLayer
  Dim pFC1 As IFeatureClass
  Dim pFL2 As IFeatureLayer
  Dim pFC2 As IFeatureClass
  Dim pEraseFL As IFeatureLayer
  Dim pEraseFC As IFeatureClass
  Dim pFCArray() As IFeatureClass
  Dim sMessage As String
  Dim bDone As Boolean
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  'Erases the first and second layer in the map with the third one
  Set pFL1 = pMap.Layer(0)
  Set pFC1 = pFL1.FeatureClass
  Set pFL2 = pMap.Layer(1)
  Set pFC2 = pFL2.FeatureClass
  Set pEraseFL = pMap.Layer(2)
  Set pEraseFC = pEraseFL.FeatureClass
  ReDim pFCArray(2)
  Set pFCArray(0) = pFC1
  Set pFCArray(1) = pFC2
  '=======================================================================
  Set ET = New ETGW_Core
  Dim sOutWS As String
  Dim dTol As Double
  Dim sSuffix As String
  dTol = 0.001
  sOutWS = "c:\00\test_pgdb.mdb"
  sSuffix = "_erased"
  bDone = ET.BatchErase(pFCArray, pEraseFC, sOutWS, _
                         dTol, sSuffix, sMessage)
  '========================================================================
  If Not bDone Then
    MsgBox sMessage
  End If
End Sub

Sub Snap_Points()
  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
  If pFeatureLayer Is Nothing Then
    MsgBox "Select a layer in the TOC"
    Exit Sub
  End If
  Set pInFeatureClass = pFeatureLayer.FeatureClass
  '=======================================================================
  Dim ET As New ETGW_Core
  Dim sOutFileName As String
  Dim dSnapTol As Double
  Dim pReferenceLayer As IFeatureLayer
  Dim pReferenceFeatureClass As IFeatureClass
  Set pReferenceLayer = ET.GetLayer("Streets")
  If pReferenceLayer Is Nothing Then
    Exit Sub
  End If
  Set pReferenceFeatureClass = pReferenceLayer.FeatureClass
  dSnapTol = 0.5
  sOutFileName = "c:\00\test_pgdb.mdb\snapped_points2"
  Set pOutFeatureClass = ET.SnapPoints(pInFeatureClass, pReferenceFeatureClass, _
                                  sOutFileName, dSnapTol, True, True, 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