Sub Perpendiculars_To_Polylines()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pMapSref As ISpatialReference
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  Dim sMessage As String
  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 = 300
  sOutFileName = "c:\00\perpendiculars1.shp"
  Set pOutFeatureClass = ET.Perpenpiculars_PointsToPolylines(pInFeatureClass, pReferenceFeatureClass, _
                                  sOutFileName, dSearchTol, sMessage)
  If pOutFeatureClass Is Nothing Then
    MsgBox sMessage
    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