Public WithEvents sel As GxSelection
Public Sub test()
Dim pDockableWindowManager As IDockableWindowManager
Set pDockableWindowManager = Application
Dim sUID As UID
Set sUID = New UID
sUID.Value = "{7F09BEFF-4F85-48A2-A3DC-39430262799E}" 'GxBrowserDockWindow
Dim pDockableWindow As IDockableWindow
Set pDockableWindow = pDockableWindowManager.GetDockableWindow(sUID)
Dim pGXBrowser As IGxBrowser
Set pGXBrowser = pDockableWindow.UserData
Dim pGXCatalog As IGxCatalog
Set pGXCatalog = pGXBrowser.InternalCatalog
Set sel = pGXCatalog.Selection
End Sub
Private Sub sel_OnSelectionChanged(ByVal Selection As esriCatalog.IGxSelection, initiator As Variant)
MsgBox Selection.Location.FullName
End Sub