Sub SymmetricalDifference()
  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 dFuzzyTol As Double
  Dim pSecondLayer As IFeatureLayer
  Dim pFeatureClass2 As IFeatureClass
  Set pSecondLayer = ET.GetLayer("SecondLayer")
  If pSecondLayer Is Nothing Then
    Exit Sub
  End If
  Set pFeatureClass2 = pSecondLayer.FeatureClass
  dFuzzyTol = 0.002
  sOutFileName = "c:\00\SymmDiff.shp"
  Set pOutFeatureClass = ET.SymmetricalDifference(pInFeatureClass, pFeatureClass2, _
                                sOutFileName, dFuzzyTol, 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