Sub Vector_Grid_Origin()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pActiveView As IActiveView
  Dim pMapSref As ISpatialReference
  Dim pFeatureLayer As IFeatureLayer
  Dim pOutFeatureClass As IFeatureClass
  Dim sMessage As String
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pActiveView = pMap
  Set pMapSref = pMap.SpatialReference
  '=======================================================================
  Dim ET As ETGW_Core
  Set ET = New ETGW_Core
  Dim sOutFileName As String
  Dim pEnvelope As IEnvelope
  Set pEnvelope = pActiveView.Extent
  sOutFileName = "c:\00\zzzz5.shp"
  sMessage = "GenchoPenchoAtanasIaz"
  Set pOutFeatureClass = ET.VectorGridOrigin(sOutFileName, pMapSref, _
                  "Polygon", 0, 0, 20, 30, 500, 100, sMessage)
  If pOutFeatureClass Is Nothing Then
    MsgBox sMessage
    Exit Sub
  End If
  '========================================================================
  Set pFeatureLayer = New FeatureLayer
  Set pFeatureLayer.FeatureClass = pOutFeatureClass
  pFeatureLayer.Name = pOutFeatureClass.AliasName
  pMap.AddLayer pFeatureLayer
  Exit Sub
EH:
  MsgBox Err.Description
End Sub