Neil, actually galleries support drag.

Neil,

Private Function LoadToolbars()
    AddButton CommandBars(1).Controls, xtpControlSplitButtonPopup, ID_TOOLBAR_COMBO, "Select item...", True, "Some text...."
End Function

Private Function AddButton(Controls As CommandBarControls, ControlType As XTPControlType, Id As Long, Caption As String, Optional BeginGroup As Boolean = False, Optional DescriptionText As String = "", Optional ButtonStyle As XTPButtonStyle = xtpButtonAutomatic, Optional Category As String = "Controls") As CommandBarControl
   
    Dim Control As CommandBarControl
    Set Control = Controls.Add(ControlType, Id, Caption)
   
        Control.BeginGroup = BeginGroup
        Control.DescriptionText = DescriptionText
        Control.Style = ButtonStyle
        Control.Category = Category
        Set AddButton = Control
   
End Function

Private Sub CommandBars_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar)
       
        Select Case CommandBar.BarID
        Case 0
            CommandBar.Controls.DeleteAll
            CommandBar.SetIconSize 16, 16 ''(or whatever iconsize you need)
           
    Dim i As Integer
        Dim selectionControl As CommandBarButton
           
            For i = 1 To 20
                Set selectionControl = CommandBar.Controls.Add(xtpControlButton, i, "Item " & i)
                    selectionControl.CloseSubMenuOnClick = True ''False won't hide the dropdown section when clicked
                    selectionControl.DefaultItem = True ''Text will be bold (maybe for previous selected items)
                    selectionControl.Enabled = True ''
                    selectionControl.Style = xtpButtonIconAndCaption
                   
        If i Mod 10 = 1 Then
                    selectionControl.Flags = xtpFlagWrapRow ''every 10 items to the next column
                End If
            Next i
        End Select
   
End Sub

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   
        Select Case Control.Id
            Case 1 To 20
                Dim controlSelect As CommandBarButton
                Set controlSelect = CommandBars.FindControl(, ID_TOOLBAR_COMBO)
                    controlSelect.Caption = Control.Caption
               
    End Select
   
End Sub
Private Sub Form_Load()
        LoadToolbars
End Sub