[VB6]: Associare dati addizionali a elementi di una ListBox

[Veronica80]

Come non detto! Ci son arrivata

Do Until rsRecordset.EOF
    List1.AddItem rsRecordset("Azienda")
    List1.ItemData(List1.NewIndex) = rsRecordset("idAzienda").Value
    rsRecordset.MoveNext
Loop

End Sub

Private Sub List1_Click()
MsgBox List1.ItemData(List1.ListIndex)

End Sub

Ragazzi mi avete tolta da un vero impiccio! Non so come ringraziarvi!
CIAOOOOO!