Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_GalleryToolItemClick(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinToolbars.GalleryToolItemEventArgs) Handles UltraToolbarsManager1.GalleryToolItemClick
	' Use the event arguments to construct a message describing the item that was clicked.
	Dim message As String = e.Item.Title & " has been clicked in the " & e.ItemLocation.ToString() & " area. "
	' If the item is selected, include that in the message also. IsSelected will 
	' be true when the ItemStyle of the gallery owning the item is set to StateButton.
	' Otherwise, it will be false.
	If e.Item.IsSelected Then
		message = message & "It is now the selected item."
	End If
	MessageBox.Show(message)
End Sub