Sub Spatial_Join()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  
  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 sJoinType As String
  Dim bLeftOuter As Boolean
  Dim dSearchTol As Double
  Dim pJoinLayer As IFeatureLayer
  Dim pJoinFeatureClass As IFeatureClass
  'an exaple on how to get a feature layer by name
  Set pJoinLayer = ET.GetLayer("Layer_To_Join")
  If pJoinLayer Is Nothing Then
    Exit Sub
  End If
  Set pJoinFeatureClass = pJoinLayer.FeatureClass
  sJoinType = "Nearest"
  bLeftOuter = True
  dSearchTol = 0.02
  sOutFileName = "c:\00\spatial_join.shp"
  Set pOutFeatureClass = ET.Spatial_Join(pInFeatureClass, pJoinFeatureClass, _
                                  sOutFileName, sJoinType, bLeftOuter, dSearchTol)
  '========================================================================
  Set pFeatureLayer = New FeatureLayer
  Set pFeatureLayer.FeatureClass = pOutFeatureClass
  pFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pFeatureLayer
End Sub