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