Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_TearawayToolbarCreated(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.TearawayToolbarCreatedEventArgs) Handles UltraToolbarsManager1.TearawayToolbarCreated
Dim dr As DialogResult = MessageBox.Show(Me, "The toolbar with key '" + e.Toolbar.Key + "' has been torn away. Do you want to destory the toolbar when it is closed?", "Cancelable Toolbar Event", MessageBoxButtons.YesNo)
e.DestroyOnClose = (dr = DialogResult.Yes)
End Sub