Sub PointToPolygonZM()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass 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 sIdFieldName As String
  Dim bUseOrder As Boolean
  Dim sOrderFieldName As String
  Dim sZFieldName As String
  Dim sZTyp As String
  sIdFieldName = "PolylineId"
  bUseOrder = True
  sOrderFieldName = "PointOrder"
  sZFieldName = "Elevation"
  sZTyp = "Z"
  sOutFileName = "c:\00\point_to_polygonZM.shp"
  Set pOutFeatureClass = ET.PointToPolygonZM(pInFeatureClass, sOutFileName, _
                                        sIdFieldName, bUseOrder, sOrderFieldName, _
                                        sZFieldName, sZTyp, sMessage)
   '========================================================================
  Set pFeatureLayer = New FeatureLayer
  Set pFeatureLayer.FeatureClass = pOutFeatureClass
  pFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pFeatureLayer
End Sub