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"})}