Sub Split_Polylines()
  Dim ET As ETGW_Core
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pInputLayer As IFeatureLayer
  Dim pInputFeatureClass As IFeatureClass
  Dim pSplitFeatureLayer As IFeatureLayer
  Dim pSplitFeatureClass As IFeatureClass
  Dim pOutFeatureLayer As IFeatureLayer
  Dim pOutFeatureClass As IFeatureClass
  Dim sOutFileName As String
  Set ET = New ETGW_Core
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pInputLayer = ET.GetLayer("inputPolylines")
  If pInputLayer Is Nothing Then
    Exit Sub
  End If
  Set pInputFeatureClass = pInputLayer.FeatureClass
  If pInputFeatureClass.ShapeType <> esriGeometryPolyline Then
    MsgBox "Incorrect Shape type"
    Exit Sub
  End If
  Set pSplitFeatureLayer = ET.GetLayer("splitPolygons")
  If pSplitFeatureLayer Is Nothing Then
    MsgBox "Layer could not be found"
    Exit Sub
  End If
  Set pSplitFeatureClass = pSplitFeatureLayer.FeatureClass
  sOutFileName = "c:\00\splitPolylines.shp"
  '=======================================================================
  Dim sMessage As String
  Dim dSearchTol As Double
  Set pOutFeatureClass = ET.SplitPolylineLayer(pInputFeatureClass, _
                     pSplitFeatureClass, sOutFileName, dSearchTol, sMessage)
  If pOutFeatureClass Is Nothing Then
    MsgBox sMessage, vbCritical, "Split Polylines"
    Exit Sub
  End If
  '========================================================================
  Set pOutFeatureLayer = New FeatureLayer
  Set pOutFeatureLayer.FeatureClass = pOutFeatureClass
  pOutFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pOutFeatureLayer
End Sub