Public Sub Spider_Diagram()
  Dim ET As ETGW_Core
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pCentersFeatureLayer As IFeatureLayer
  Dim pCentersFeatureClass As IFeatureClass
  Dim pDestinationsLayer As IFeatureLayer
  Dim pDestinationsFeatureClass As IFeatureClass
  Dim sOutFileName As String
  Dim pOutFeatureClass As IFeatureClass
  Dim pOutFeatureLayer As IFeatureLayer
  Dim pGDS As IGeodataset
  Dim pSRef As ISpatialReference
  Dim dCutOffDistance As Double
  Dim sMessage As String
  On Error GoTo EH
  Set ET = New ETGW_Core
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pCentersFeatureLayer = ET.GetLayer("Centers")
  If pCentersFeatureLayer Is Nothing Then
    MsgBox "Layer not found"
    Exit Sub
  End If
  Set pCentersFeatureClass = pCentersFeatureLayer.FeatureClass
  Set pDestinationsLayer = ET.GetLayer("Destinations")
  If pDestinationsLayer Is Nothing Then
    MsgBox "Layer not found"
    Exit Sub
  End If
  Set pDestinationsFeatureClass = pDestinationsLayer.FeatureClass
  '=======================================================================
  dCutOffDistance = 100000
  sOutFileName = "c:\00\spider1.shp"
  Set pGDS = pCentersFeatureClass
  Set pSRef = pGDS.SpatialReference
  Set pOutFeatureClass = ET.SpiderDiagram(pCentersFeatureClass, _
                            pDestinationsFeatureClass, sOutFileName, _
                            dCutOffDistance, pSRef, sMessage)
  If pOutFeatureClass Is Nothing Then
    MsgBox sMessage
    Exit Sub
  End If
  '========================================================================
  Set pOutFeatureLayer = New FeatureLayer
  Set pOutFeatureLayer.FeatureClass = pOutFeatureClass
  pOutFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pOutFeatureLayer
  Exit Sub
EH:
  MsgBox Err.Description
End Sub