Sub BatchClip()
  Dim ET As ETGW_Core
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pFL1 As IFeatureLayer
  Dim pFC1 As IFeatureClass
  Dim pFL2 As IFeatureLayer
  Dim pFC2 As IFeatureClass
  Dim pClipFL As IFeatureLayer
  Dim pClipFC As IFeatureClass
  Dim pFCArray() As IFeatureClass
  Dim sMessage As String
  Dim bDone As Boolean
  Set pMxDoc = ThisDocument
  Set pMap = pMxDoc.FocusMap
  'Clips the first and second layer in the map with the third one
  Set pFL1 = pMap.Layer(0)
  Set pFC1 = pFL1.FeatureClass
  Set pFL2 = pMap.Layer(1)
  Set pFC2 = pFL2.FeatureClass
  Set pClipFL = pMap.Layer(2)
  Set pClipFC = pClipFL.FeatureClass
  ReDim pFCArray(2)
  Set pFCArray(0) = pFC1
  Set pFCArray(1) = pFC2
  '=======================================================================
  Set ET = New ETGW_Core
  Dim sOutWS As String
  Dim dTol As Double
  Dim sSuffix As String
  dTol = 0.001
  sOutWS = "c:\00\test_pgdb.mdb"
  sSuffix = "_clipped"
  bDone = ET.BatchClip(pFCArray, pClipFC, sOutWS, _
                         dTol, sSuffix, sMessage)
  '========================================================================
  If Not bDone Then
    MsgBox sMessage
  End If
End Sub