Imports Infragistics.Win.UltraWinToolbars
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
	' Get the gallery from the toolbars manager whose item will be customized
	Dim gallery As PopupGalleryTool = Me.UltraToolbarsManager1.Tools("PopupGalleryTool1")
	' Set the delay for activating the first item in the gallery.  The user can mouse over
	' various items, but if they leave the item before 1000ms has ellapsed, the 
	' GalleryToolActiveItemChange event will never fire.  However, if the user does hover 
	' over an item for 1000ms, the event will fire and the ActivationActionDelay will be used
	' to determine how long to wait to activate other items.
	' NOTE: When UltraToolbarsManager.Office2007UICompatibility is true, these delays will 
	' automatically be resolved to 250ms and 0ms, respectively, for gallery previews in the ribbon.
	gallery.ActivationInitialActionDelay = 1000
	' After the first item has been activated, subsequent items will be activated immediately
	gallery.ActivationActionDelay = 0
End Sub
Private Sub UltraToolbarsManager1_GalleryToolActiveItemChange(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinToolbars.GalleryToolItemEventArgs) Handles UltraToolbarsManager1.GalleryToolActiveItemChange
	' The Item property needs to be checked for Nothing, because when an item has been
	' activated, and the cursor has left the item area of the gallery, this event
	' will be fired with a Nothing Item.
	If Not (e.Item Is Nothing) Then
		' Use the information from the event args to get the ui element showing the
		' item that was activated.
		Dim itemElement As Infragistics.Win.UIElement = e.Item.GetUIElement(e.GalleryTool, e.Group, e.ItemLocation)
		' Determine the screen location of the item's top-left corner
		Dim screenLocation As Point = itemElement.Control.PointToScreen(itemElement.Rect.Location)
		' Set the text of the form to indicate which item has been activated
		' and where it is location, both the screen location and the type of
		' gallery area it was displayed in (preview or drop down).
		Me.Text = _
		 "Live Preview activated for """ & e.Item.Title & """ in the " & _
		 e.ItemLocation.ToString() & " area at " & screenLocation.ToString()
	Else
		' If the Item is Nothing, the the cursor has left the item area and there 
		' is no longer an active item.
		Me.Text = "Live Preview deactivated from the " & e.ItemLocation.ToString() & " area"
	End If
End Sub