Private Sub UltraToolbarsManager1_BeforeToolActivate(ByVal sender As Object, _ ByVal e As Infragistics.Win.UltraWinToolbars.CancelableToolEventArgs) _ Handles UltraToolbarsManager1.BeforeToolActivate If e.Tool.Index = 4 Then e.Cancel = True End If End Sub