Sub ExportToGoogle()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pInFeatureClass As IFeatureClass
  Dim sMessage As String
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  Set pFeatureLayer = pMxDoc.SelectedLayer
  Set pInFeatureClass = pFeatureLayer.FeatureClass
  '=======================================================================
  Dim ET As ETGW_Core
  Dim sOutFileName As String
  Dim bDone As Boolean
  Set ET = New ETGW_Core
  sOutFileName = "C:\00\000_kml\results\mykml.kmz"
  bDone = ET.ExportToGoogle(pInFeatureClass, sOutFileName, "MyKML", _
                        "Name", "", 0, "const", "", 200, "Meters", "relative",true, _
                        "both", 2, 2, 0.8, True, "p_circle", _
                        "paddle", sMessage)
  '========================================================================
  MsgBox bDone & vbNewLine & sMessage
  
End Sub