Here's the code if anyone is interested.

 

Thanks

Lee

 

Dim cbSubmissions As CommandBar
Const ID_GallerySubmissionslery_Submissions = 1

Private Sub Form_Load()

Dim cbb As CommandBarButton

With CommandBars1
    .VisualTheme = xtpThemeOffice2007
    .ActiveMenuBar.Delete
    '.AddImageList ImageList1
   
    Set cbSubmissions = .Add("Submissions Popup", xtpBarPopup)
   
    With cbSubmissions

    Dim GallerySubmissions As CommandBarGallery, GallerySubmissionsItems As CommandBarGalleryItems
    Set GallerySubmissions = .Controls.Add(xtpControlGallery, ID_GallerySubmissions, "GallerySubmissionslery")
        GallerySubmissions.ShowBorders = True
        GallerySubmissions.Style = xtpButtonIconAndCaption
        GallerySubmissions.Resizable = xtpAllowResizeHeight
        'GallerySubmissions.Height = 100
       
    Set GallerySubmissionsItems = CommandBars1.CreateGalleryItems(ID_GallerySubmissions)
        GallerySubmissionsItems.ItemWidth = 100
        GallerySubmissionsItems.AddLabel "Submissions"
     
        GallerySubmissionsItems.AddItem 1, "01/01/2008 14:54"
        GallerySubmissionsItems.AddItem 2, "01/01/2008 15:00"
        GallerySubmissionsItems.AddItem 3, "01/01/2008 15:14"
        GallerySubmissionsItems.AddItem 4, "01/01/2008 16:09"
        GallerySubmissionsItems.AddItem 5, "01/01/2008 17:36"
   
    Set GallerySubmissions.Items = GallerySubmissionsItems
       
    End With

End With

End Sub

Private Sub DatePicker1_SelectionChanged()
    Dim Response As Integer
        Response = cbSubmissions.ShowPopup '(TPM_RETURNCMD Or TPM_RECURSE)
End Sub

 

Thanks

Lee