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