Sub Station_Points()
  Dim ET As ETGW_Core
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim pOutFeatureClass As IFeatureClass
  Dim pGDS As IGeodataset
  Dim pSRef As ISpatialReference
  Dim sMessage As String
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pFeatureLayer = pMxDoc.SelectedLayer
  Set pInFeatureClass = pFeatureLayer.FeatureClass
  Set pGDS = pInFeatureClass
  Set pSRef = pGDS.SpatialReference
  '=======================================================================
  Set ET = New ETGW_Core
  Dim sOutFileName As String
  Dim dStep As Double
  dStep = 1.5
  sOutFileName = "c:\00\test_pgdb.mdb\stations22"
  Set pOutFeatureClass = ET.StationPoints(pInFeatureClass, sOutFileName, _
                               dStep, True, pSRef, 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
End Sub