Public Sub Merge()
  ' マップ内の最上位レイヤを取得します。
  Dim pMxDoc As IMxDocument
  Set pMxDoc = ThisDocument
  Dim pLayer As ILayer
  Set pLayer = pMxDoc.FocusMap.Layer(0)
  Dim pFeatLayer As IFeatureLayer
  Set pFeatLayer = pLayer
  Dim pFirstFeatClass As IFeatureClass
  Set pFirstFeatClass = pFeatLayer.FeatureClass

  ' 最上位レイヤのテーブルを取得します。
  ' そのためにLayerオブジェクトのITableインタフェースにQIします。
  ' このテーブルは出力の際に使用されるフィールドを定義します。
  Dim pFirstTable As ITable
  Set pFirstTable = pLayer

  ' 上から2番目のレイヤを取得し、そのテーブルを取得します。
  ' そのためにLayerオブジェクトのITableインタフェースにQIします。
  Set pLayer = pMxDoc.FocusMap.Layer(1)
  Dim pSecondTable As ITable
  Set pSecondTable = pLayer

  ' エラー･チェック
  If pFirstTable Is Nothing Then
    MsgBox "テーブルが見つかりません"
    Exit Sub
  End If

  If pSecondTable Is Nothing Then
    MsgBox "テーブルが見つかりません"
    Exit Sub
  End If

  ' 出力用FeatureClassNameとそのシェープタイプを定義します。
  Dim pFeatClassName As IFeatureClassName
  Set pFeatClassName = New FeatureClassName
  
  With pFeatClassName
    .FeatureType = esriFTSimple
    .ShapeFieldName = "Shape"
    .ShapeType = pFirstFeatClass.ShapeType
  End With

  ' 出力先フォルダおよびシェープファイル名を設定します。
  Dim pNewWSName As IWorkspaceName
  Set pNewWSName = New WorkspaceName

  With pNewWSName
    .WorkspaceFactoryProgID = "esriCore.ShapefileWorkspaceFactory.1"
    .PathName = "C:\temp"
  End With

  Dim pDatasetName As IDatasetName
  Set pDatasetName = pFeatClassName
  pDatasetName.Name = "Merge_result"

  Set pDatasetName.WorkspaceName = pNewWSName

  ' マージするレイヤを含んだ配列を作成します。
  Dim inputArray As IArray
  Set inputArray = New esriCore.Array　'ArcGIS 9.xの場合：New esriSystem.Array
  inputArray.Add pFirstTable
  inputArray.Add pSecondTable

  ' マージを実行します。
  Dim pBGP As IBasicGeoprocessor
  Set pBGP = New BasicGeoprocessor
  Dim pOutputFeatClass As IFeatureClass
  Set pOutputFeatClass = pBGP.Merge(inputArray, pFirstTable, pFeatClassName)

  ' マージしたシェープファイルをArcMapへ追加します。
  Dim pOutputFeatLayer As IFeatureLayer
  Set pOutputFeatLayer = New FeatureLayer
  Set pOutputFeatLayer.FeatureClass = pOutputFeatClass
  pOutputFeatLayer.Name = pOutputFeatClass.AliasName
  pMxDoc.FocusMap.AddLayer pOutputFeatLayer
End Sub