Hi,
I am trying to refesh all the tab in the TOC. I think that this code works. However I have no idea of knowing if it actually work.
Public Function contentsRefresh()
Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument
Dim pContentView As IContentsView
Dim pCountView As Long
pCountView = pmxdoc.ContentsViewCount
For i = 0 To pCountView - 1
Set pContentView = pmxdoc.contentsView(i)
pContentView.Refresh (i)
Next i
End Function
If somebody could help me debug this it would be greatly appreciated.
Cordially,