Dim d As New Dictionary(Of String, String)
 
         ' Items einfügen
 
        Dim r As New Random(Environment.TickCount)
 
        ' Item auswählen
        Dim l As New List(Of String)(d.Values)
        Dim item As String = l(r.Next(d.Count - 1))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist