ToolTips in CommandBar

I have this code but the tooltips aren't display at all

What i have forgotten?

 

    Dim Toolbar As CommandBar
    Dim ControlNew As CommandBarPopup
   
    Set Toolbar = CommandBars.Add("Standard", xtpBarTop)
    CommandBars.ToolTipContext.Style = 4
    CommandBars.Options.LargeIcons = 1
    CommandBars.EnableActions

       
     AddControl Toolbar.Controls, xtpControlButton, 103, "test1", True
    With Toolbar.Controls
            Set ControlNew = .Add(xtpControlSplitButtonPopup, 104, "test")
            ControlNew.CommandBar.Controls.Add xtpControlButton, 105, "test1"
            ControlNew.DescriptionText = "test2"
            ControlNew.CommandBar.Controls.Add xtpControlButton, 106, "test"
            ControlNew.DescriptionText = "test3"
    End With
     Set CommandBars.Icons = ImageManager1.Icons
    CommandBars.Options.UseDisabledIcons = True
    UseDisabledIcons = True
    CommandBars.Options.SetIconSize True, 32, 32
    CommandBars.Options.ShowTextBelowIcons = True
    CommandBars.Options.ShowExpandButtonAlways = False
    CommandBars.VisualTheme = xtpThemeOffice2003

Thank you very much