recuperare il value di ogni listitem di un listbox

[Jc_]

La domanda è chiara.. ma io non riesco a trovare soluzione.

Ho provato di tutto e nemmeno sul wrox ho trovato la soluzione.
Deve essere per forza un for each. ma a me sinceramente non mi riesce dirgli

for each (nomelistbox.item?) in listboxId

thx raga

[Jc_]

risolto :

se puo servire a qualcuno

			
Dim objItem as ListItem
			For Each objItem in Sputa.Items
			SQL = "SELECT Articolo from comunicati where codice = " & objItem.Value
			Dim objAdapter as New OleDbDataAdapter(Sql, ItemConn)
			Dim ItemDSet as DataSet = New DataSet
			objAdapter.Fill(ItemDSet, "comunicati")
			Tbody = Tbody & ItemDSet.Tables("comunicati").rows(0)("articolo") & "
<hr>"
			Next