Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_BeforeToolbarReset(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.CancelableToolbarEventArgs) Handles UltraToolbarsManager1.BeforeToolbarReset
Dim dr As DialogResult = MessageBox.Show(Me, "The toolbar with key '" + e.Toolbar.Key + "' is about to be reset. Do you want to cancel the reset?", "Cancelable Toolbar Event", MessageBoxButtons.YesNo)
If dr = DialogResult.Yes Then
e.Cancel = True
End If
End Sub