Dim ProgNodeTag() As Tag = Nothing
Dim ProgCount As Integer
ufSess.UiOnt.Refresh()
ufSess.UiOnt.SwitchView(UFUiOnt.TreeMode.Order)
Dim ThisSetupTag As NXOpen.Tag = Tag.Null
Dim ThisRootGroupTag As NXOpen.Tag = Tag.Null
Dim ThisProgramRoot As NXOpen.Tag = Tag.Null