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