Private Sub cmdRandom_Click()
  Dim i                 As Long
  Dim lMax              As Long
  Dim lRandomArtikel    As Long
  List2.Clear
  ' Anzahl aller verfügbaren Artikel im List1
  lMax = List1.ListCount - 1
 
  For i = 1 To 5
    ' Zufallszahl zwischen 0 und 'lMax'
    lRandomArtikel = ((lMax) * Rnd)
    ' Den Artikel an der Position 'lRandomArtikel' von List 1 nach List2 
    ' kopieren
    List2.AddItem List1.List(lRandomArtikel)
  Next i
End Sub