IIdentifyDialog shows up old identify window

[kaustavroy]

Dear friends

       i have developed ArcMap desktop tool  which overrides existing (using sample code)Arcmap identify tool where  some layers excluded for displaying information.The code works fine without any error but the issue is  old identify window shows up which does not have  sorting and other options in the window.Kindly help me for this issue.

Public Sub DoIdentify(ByVal x As System.Int32, ByVal y As System.Int32)

        Dim pMxdoc As IMxDocument

        Dim activeView As IActiveView

        Dim trackCancel As ITrackCancel = New CancelTrackerClass()

        pMxdoc = m_application.Document

        activeView = pMxdoc.ActiveView

        If activeView Is Nothing Then

            Return

        End If

        Dim map As IMap = activeView.FocusMap

        Dim identifyDialog As IIdentifyDialog = New IdentifyDialog

        identifyDialog.Map = map

        'Clear the dialog on each mouse click

        identifyDialog.ClearLayers()

        Dim screenDisplay As ESRI.ArcGIS.Display.IScreenDisplay = activeView.ScreenDisplay

        Dim display As ESRI.ArcGIS.Display.IDisplay = screenDisplay ' Implicit Cast

        identifyDialog.Display = display

        Dim identifyDialogProps As IIdentifyDialogProps = CType(identifyDialog, IIdentifyDialogProps) ' Explicit Cast

        Dim enumLayer As ESRI.ArcGIS.Carto.IEnumLayer = identifyDialogProps.Layers

        enumLayer.Reset()

        Dim layer As ESRI.ArcGIS.Carto.ILayer = enumLayer.Next

        '

        Do While Not (layer Is Nothing)

            If CheckLayerCantainsInLayerList(layer) = False Then

                identifyDialog.AddLayerIdentifyPoint(layer, x, y)

            End If

            layer = enumLayer.Next()

        Loop

       identifyDialog.Show()

    End Sub