Private Sub UltraTabControl1_SelectedTabChanging(ByVal sender As Object, _ ByVal e As Infragistics.Win.UltraWinTabControl.SelectedTabChangingEventArgs) _ Handles UltraTabControl1.SelectedTabChanging MessageBox.Show("You have selected tab " + e.Tab.Text.ToString) End Sub