RibbonBar ContextTab not showing

 

I've got a ribbonbar with about 8 visible tabs and a context tab. The context tab is originally false set up like this:

 

    Set oTab = oRib.InsertTab(30000, "&Favorites")
    With oTab
        .ContextCaption = "Favorites"
        .Color = xtpRibbonTabContextColorBlue
        .Visible = False
    End With

 

In the Execute event I have:

 

    Select Case Control.Id
        Case 42001: mbShowContextFavorites = Not mbShowContextFavorites
    End Select

 

And in the Update event I have:

 

    Select Case Control.Id
        Case XTPCommandBarsSpecialCommands.XTP_ID_RIBBONCONTROLTAB:
            Dim oRib As RibbonBar
            Dim oTab As RibbonTab
           
            Set oRib = cbar.ActiveMenuBar
            Set oTab = oRib.FindTab(30000)
            If Not oTab Is Nothing Then
                oTab.Visible = mbShowContextFavorites
            End If
    End Select

 

But the context tab is not showing!! Any ideas??

 

Thanks,

Ivan