Torna al Thread
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Popolo la collection
Dim d1 As New Dato
d1.Codice = 123
d1.Descrizione = "Descrizione 123"
d1.Altro = "Altro 123"
Dim d2 As New Dato
d2.Codice = 456
d2.Descrizione = "Descrizione 456"
d2.Altro = "Altro 456"
Dim ld As New List(Of Dato)
ld.Add(d1)
ld.Add(d2)
'Creo il BindingSource
Dim dbs As New BindingSource
dbs.DataSource = ld
'Popolo i controlli
dgv1.DataSource = dbs
lb1.DataSource = dbs
End Sub