'Liste mit Angaben
   Dim frucht As New Collections.Generic.List(Of String)
 
   For i As Integer = 0 To 9
       frucht.Add("Gurken")
       frucht.Add("Gurken")
       frucht.Add("Gurken")
       frucht.Add("Birnen")
       frucht.Add("Birnen")
       frucht.Add("Äpfel")
   Next i
 
   'Aufbereitung der Liste als sortierte Dictionary
   Dim dic As New Collections.Generic.SortedDictionary(Of String, Integer)
   For i As Integer = 0 To frucht.Count - 1
       If dic.ContainsKey(frucht(i)) Then
          dic(frucht(i)) += 1
       Else
          dic.Add(frucht(i), 1)
       End If
   Next i
 
   'Aufbereitung der Häufigkeiten als Liste
   Dim fruchtfreq As New Collections.Generic.List(Of String)
   For Each key As String In dic.Keys
       fruchtfreq.Add("(" & CStr(dic(key)) & ") " & key)
   Next key
 
   'Datenquelle der Listbox belegen
   lbo.DataSource = fruchtfreq