個別属性ダイアログの表示

'個別属性ダイアログの表示
Dim pMxApplication As IMxApplication
Set pMxApplication = Application

Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument

Dim pIdentifyDialog As IIdentifyDialog
Set pIdentifyDialog = New IdentifyDialog
Dim pIdentifyDialog2 As IIdentifyDialog2
Set pIdentifyDialog2 = pIdentifyDialog

Set pIdentifyDialog.Display = pMxApplication.Display
Set pIdentifyDialog.Map = pMxDocument.FocusMap

Set pIdentifyDialog2.BasicMap = pMxDocument.FocusMap
pIdentifyDialog2.HideContextMenu = False
pIdentifyDialog2.HideLayersComboBox = False

pIdentifyDialog.Show
'pIdentifyDialog2.Visible = True