An interface is required to access the new identify dialog box, which is available in ArcMap version 10.

Additional Information

Workaround

Use UID object to access to the existing standard identify tool. It does activate the standard Identify tool in ArcMap 10, however the approach is just calling the existing Identify tool, not using the ArcObject to access the identify dialog object.

e.g.

Private Sub showNewIdentifyDialog()

Dim puid As UID

Set puid = New UID

puid.Value = "esriControls.ControlsMapIdentifyTool"

Dim documentBars As ICommandBars

Set documentBars = Application.Document.CommandBars

Dim cmdItem As ICommandItem

Set cmdItem = documentBars.Find(puid, False, False)

Set Application.CurrentTool = cmdItem

End SubI

Steps to Reproduce