public class Class_ListBoxItem
   public Name as String
   public Zusatzdaten as String
 
   public Overrides function tostring() as string
      tostring = Name
   end function
end class

dim ListBoxItem as new Class_ListBoxItem
Listboxitem.Name = "Gummibärchen"
ListboxItem.Zusatzdaten = "Schmecken gut"
 
listbox.items.add(ObjektListBoxItem)