Public Sub PolygonToPolylineAdvanced()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pLabelsFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  Dim sMessage As String
  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 sLabelsFileName As String
  Dim fTol As Double
  Dim bLabels As Boolean
  Dim sLinkField As String
  fTol = 0.00002
  bLabels = True
  sLinkField = "FID"
  sOutFileName = "c:\00\pgdb92.mdb\clean_polynes"
  sLabelsFileName = "c:\00\pgdb92.mdb\labels2"
  Set pOutFeatureClass = ET.PolygonToPolylineAdvanced(pInFeatureClass, sOutFileName, _
              fTol, sLinkField, bLabels, sLabelsFileName, pLabelsFeatureClass, sMessage)
  '========================================================================
  If Not pOutFeatureClass Is Nothing Then
    Set pFeatureLayer = New FeatureLayer
    Set pFeatureLayer.FeatureClass = pOutFeatureClass
    pFeatureLayer.Name = pOutFeatureClass.AliasName
    pMap.AddLayer pFeatureLayer
  Else
    MsgBox sMessage
  End If
  If bLabels Then
    If Not pLabelsFeatureClass Is Nothing Then
      Set pFeatureLayer = New FeatureLayer
      Set pFeatureLayer.FeatureClass = pLabelsFeatureClass
      pFeatureLayer.Name = pLabelsFeatureClass.AliasName
      pMap.AddLayer pFeatureLayer
    End If
  Else
  End If
End Sub