Public Class Form1
    Dim lbo As New ListBox With 
       {.Parent = Me, .Width = 300, .Height = 300}
 
    'Eine Klasse für die Items
    Private Class ListboxItem
        Public Property ItemText As String
        Public Property AddText As String
    End Class
 
    'Eine Liste für die Items
    Dim listboxitems As New List(Of ListboxItem)
 
 
    Private Sub Form1_Load(sender As Object, _
            e As EventArgs) Handles MyBase.Load
 
        'Einige Items 
        listboxitems.Add(New ListboxItem With 
              {.ItemText = "irgendwas", .AddText = "noch irgendwas"})
        listboxitems.Add(New ListboxItem With 
              {.ItemText = "irgendwas 2", .AddText = "noch irgendwas 2"})
 
        'Beispiel für Zugriff auf eine Itemeigenschaft
        Dim test As String = listboxitems(1).AddText
 
        'Anzeige der Items in einer gebundenen Listbox
        lbo.DisplayMember = "ItemText"
        lbo.DataSource = listboxitems
 
    End Sub
End Class