[RESOLVED] Listbox question

i have this code with my listbox

Quote:

---

Private Sub Command1_Click()

If List1.ListIndex = -1 Then Exit Sub
Text1.Text = "press 2945#*3101#"


If List1.ListIndex = 0 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 1 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 2 Then Exit Sub
Text1.Text = "press 2945#*2601#"

If List1.ListIndex = 3 Then Exit Sub
Text1.Text = "press 2945#*9701#"

If List1.ListIndex = 4 Then Exit Sub
Text1.Text = "press 2945#*1201#"

If List1.ListIndex = 5 Then Exit Sub
Text1.Text = "press 2945#*1201#"

If List1.ListIndex = 6 Then Exit Sub
Text1.Text = "press 2945#*3311#"

If List1.ListIndex = 7 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 8 Then Exit Sub
Text1.Text = "press 2945#*7101#"

End Sub

---

Quote:

---

Private Sub Form_Load()

With List1

.AddItem "LG C3100"

.AddItem "LG C3380"

.AddItem "LG F2300"

.AddItem "LG KE260"

.AddItem "LG KE970"

.AddItem "LG KG120"

End With

End Sub

---

the code is working perfect, but its badly coded because i have 50pcs of LG MODELS so the code If List1.ListIndex = X Then Exit Sub
Text1.Text = "press bla bla" is very long,

is there any way to make this short?
sorry for being a noob im really a beginner

vb Code:

Select Case List1.ListIndex
 Case 0
  Text1.Text = "press 2945#*3101#"
 Case Is < 3, Is > 7
  Text1.Text = "press 2945#*7101#"
 Case 3
  Text1.Text = "press 2945#*2601#"
 Case 4
  Text1.Text = "press 2945#*9701#"
 case 5 To 6 'or 5, 6 can be used
  Text1.Text = "press 2945#*1201#"
 case 7
  Text1.Text = "press 2945#*3311#"
 case else
  text1.text = "not found"
End Select

Every comma in a Case [Is] X statement is basically a logical OR.

You can also specify ranges, such as 5 to 6, or 1 to 100, etc. Is is only required for comparisons, such as >, <, =>, <=, <>.

You could use a SELECT CASE statement instead of a bunch of IF's.

thanks man i will try it tomorrow,