For Each item As ListItem In ListBox1.Items If (item.Selected) Then oArrlis.Add(item.Text) End If Next