codice:
Dim ll As ListBox =  New ListBox() 
 
Dim item As ListItem
For Each item In ll.Items
      Dim valore As String =  item.Value 
      Dim testo As String =  item.Text 
Next