Private
Sub XamTab_SelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles
XamTab.SelectionChanged
Try
Select Case
XamTab.SelectedIndex
Case 0
Codart.Focus()
End Select
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
…