Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
	Private Sub UltraToolbarsManager1_BeforeToolbarListDropdown(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.BeforeToolbarListDropdownEventArgs) Handles UltraToolbarsManager1.BeforeToolbarListDropdown
		Dim dr As DialogResult = MessageBox.Show(Me, "The toolbar list is about to dropdown. Do you want to cancel the dropdown?", "Cancelable Toolbar Event", MessageBoxButtons.YesNo)
		If dr = DialogResult.Yes Then
			e.Cancel = True
		Else
			dr = MessageBox.Show(Me, "The toolbar list is about to dropdown. Do you want to show the Customize option in the list?", "Cancelable Toolbar Event", MessageBoxButtons.YesNo)
			e.ShowCustomizeMenuItem = (dr = DialogResult.Yes)
			dr = MessageBox.Show(Me, "The toolbar list is about to dropdown. Do you want to show the Lock Toolbars option in the list?", "Cancelable Toolbar Event", MessageBoxButtons.YesNo)
			e.ShowLockToolbarsMenuItem = (dr = DialogResult.Yes)
		End If
	End Sub