Dim filter() As GalleryToolItemGroupFilter = {_ New GalleryToolItemGroupFilter("All Charts",_ "All Charts",_ New String() {"2D Charts", "3D Charts"}),_ New GalleryToolItemGroupFilter("2D Charts",_ "2D Charts",_ New String() {"2D Charts"}),_ New GalleryToolItemGroupFilter("3D Charts",_ "3D Charts",_ New String() {"3D Charts"})}