Dim al As New ArrayList()
oGrid.TopLevelGroupOptions.ShowFilterBar = True
al.Add(New Data("tEST1", "TEST5", "TEST7", "TEST14", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST3", "TEST4", "TEST8", "TEST15", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
al.Add(New Data("tEST4", "TEST3", "TEST9", "TEST16", Now(), Now(), True, "TEST"))
oGrid.TableDescriptor.AllowNew = False
oGrid.ShowGroupDropArea = True
Me.oGrid.DataSource = al
Dim gridExcelFilter As New GridExcelFilter
gridExcelFilter.WireGrid(Me.oGrid) 'THIS DOES NOT SHOW ME ANY FILTER in the column headers!???