Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub ultraTabControl1_SelectedTabChanging(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTabControl.SelectedTabChangingEventArgs) Handles ultraTabControl1.SelectedTabChanging
Dim dr As DialogResult
dr = MessageBox.Show(Me, "The tab with text '" + e.Tab.Text + "' is about to be selected. Do you want to cancel selection?", "Cancelable Tab Event", MessageBoxButtons.YesNo)
If dr = DialogResult.Yes Then
e.Cancel = True
End If
End Sub