Sub AddShapefile()
  Dim pGxDialog As IGxDialog
  Dim pEnumGxObj As IEnumGxObject
  Dim pGxObj As IGxObject
  Dim pGxFilter As IGxObjectFilter
  Set pGxFilter = New GxFilterShapefiles

  Set pGxDialog = New GxDialog
  pGxDialog.AllowMultiSelect = True
  pGxDialog.StartingLocation = "C:\"
  pGxDialog.Title = "シェープファイルの追加"
  pGxDialog.ButtonCaption = "追加"
  Set pGxDialog.ObjectFilter = pGxFilter

  pGxDialog.DoModalOpen 0, pEnumGxObj
  Set pGxObj = pEnumGxObj.Next

  ' マップにフィーチャクラスを追加します。
  Dim strWorkspaceName As String
  Dim strFeatureClassName As String
  strWorkspaceName = pGxObj.Parent.FullName
  strFeatureClassName = pGxObj.BaseName

  Dim pMxDocument As IMxDocument
  Dim pMap As IMap
  Dim pLayer As IFeatureLayer
  Dim pWF As IWorkspaceFactory
  Dim pWs As IWorkspace
  Dim pFW As IFeatureWorkspace
  Dim pDataset As IDataset
  Dim pFDataset As IFeatureDataset
  Dim pFc As IFeatureClass

  Set pWF = New ShapefileWorkspaceFactory
  Set pWs = pWF.OpenFromFile(strWorkspaceName, 0)

  'QI
  Set pFW = pWs

  ' 新規レイヤを作成し、そのフィーチャクラスを設定します。
  Set pFc = pFW.OpenFeatureClass(strFeatureClassName)
  Set pLayer = New FeatureLayer
  Set pLayer.FeatureClass = pFc
  pLayer.Name = strFeatureClassName

  ' マップにレイヤを追加します。
  Set pMxDocument = ThisDocument
  Set pMap = pMxDocument.FocusMap
  pMxDocument.AddLayer pLayer
End Sub