Private _items As New List(Of Person) 'you will need to fill this with data!'
Private Sub Populate()
For i As Integer = 0 To _items.count - 1
lst.items.add(_items(i).Name & ", " & _items(i).Age)
Next
End Sub
Это заполнит ваш список (который я назвал lst) примерно так:
Dave, 18
John, 21
Morgan, 23
Jen, 19