Sub Point_Distance()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pMapSref As ISpatialReference
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  On Error GoTo EH
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pMapSref = pMap.SpatialReference
  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 dSearchTol 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
  dSearchTol = 0.0002
  sOutFileName = "c:\00\point_distance4.shp"
  Set pOutFeatureClass = ET.PointDistance(pInFeatureClass, pReferenceFeatureClass, _
                                  sOutFileName, dSearchTol, pMapSref)
  If pOutFeatureClass Is Nothing Then
    Exit Sub
  End If
  '========================================================================
  Set pFeatureLayer = New FeatureLayer
  Set pFeatureLayer.FeatureClass = pOutFeatureClass
  pFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pFeatureLayer
  Exit Sub
EH:
  MsgBox Err.Description
End Sub