Can't add split button popup in a tabbed toolbar

 

I m very new to cj development. I have created a tabbed toolbar control with activemenu visibility set to false. I have created a split button in the tabbed toolbar which needs to show some menu item. I have checked all sample applications (including SDI form sample) and this forum but could not figure out how to do it. I am attaching my code for evaluation and suggest how to do it properly.

 

Public TabToolBar As TabToolBar

Dim Ctrl As CommandBarControl

Dim toolbarTab As TabControlItem

 

Set toolbarTab = TabToolBar.InsertCategory(1, "Entry")

 

    With TabToolBar
        Set Ctrl = .Controls.Add(xtpControlButton, 201, "Booking")
        Ctrl.Category = "Entry"
        Set Ctrl = .Controls.Add(xtpControlSplitButtonPopup, 202, "Results")
        Ctrl.Category = "Entry"
        Ctrl.BeginGroup = True
    End With

I want to add menu items in the button marked red.

 

Please please help me to overcome this problem. I need it urgently.

 

Thanx in advance.