if Combo1.ListIndex>=0 then 'selected one for i=0 to Combo1.ListIndex-1 Text(i).Visible = true next i Text(Combo1.ListIndex).Visible = false for i=Combo1.ListIndex+1 to text1.Count - 1 Text(i).Visible = true next ielse 'Combo no selected for i=0 to text1.Count - 1 Text(i).Visible = true next iend if
Text(i).Visible = true
next i Text(Combo1.ListIndex).Visible = false for i=Combo1.ListIndex+1 to text1.Count - 1
Text(i).Visible = true
next ielse 'Combo no selected for i=0 to text1.Count - 1
Text(i).Visible = true
next iend if