Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_GalleryToolFilterChange(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinToolbars.GalleryToolFilterChangeEventArgs) Handles UltraToolbarsManager1.GalleryToolFilterChange
Dim filterText As String = ""
' Determine what the text for the newly selected filter is by
' accessing the Filter property of the event arguments
If Not (e.Filter Is Nothing) Then
filterText = e.Filter.Text
End If
' Get the key of the gallery whose filter has changed by accessing
' the GalleryTool property of the event arguments
Dim galleryKey As String = e.GalleryTool.Key
' Display the information about the new filter to the user
MessageBox.Show("The new filter selected for the " + galleryKey + " gallery is """ + filterText + """")
End Sub