Dim Lz As New List(Of Int32)
Dim Rnd As New Random
Dim zahl As Int32
 Do
    zahl = Rnd.Next(1, 17)
     If Not Lz.Contains(zahl) Then Lz.Add(zahl)
  Loop While Lz.Count < 16
ListBox1.DataSource = Lz  'die 16 Zahlen anzeigen