listbox

[ToccoMagico]

ciao a tutti ...

sto cercando (non senza difficoltà) di fare due listbox dove nel primo ci sono tutti gli utenti fdi un certo gruppo tali utenti possono essere selezionati e portati nella seconda listbox

questo è il codice che mi carica la prima listbox :

(lo ometto in quanto funziona)

questo è invece il codice che mi carica la seconda listbox che mi da problemi (in pratica non riesco a riprendere i valori di listagen)
e il debug mi da un errore su objElemento (BC30002: Tipo 'objElemento.text' non definito.)


Dim objElemento as ListItem
Dim strMessaggio as String


For Each objElemento in ListAgen.Items
If objElemento.Selected Then
ListAgenok.Items.Add(New objElemento.text))
End If
Next


Grazie 1000

Paolo

[riccardone]

prova cosi

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