Dim intRandom As Integer, intCount As Integer, i As Integer
  Dim blnsCheck()
  Dim bCancel As Boolean
 
  ReDim blnsCheck(List1.ListCount - 1)
  List2.Clear
 
  For i = Label1.UBound To 1 Step -1
    Unload Label1(i)
  Next
 
  For i = 1 To List1.ListCount - 1
    Load Label1(i)
    Label(i).Top = Label(i - 1).Top + Label1(i - 1).Height
  Next
 
  Do
    intRandom = Int((List1.ListCount) * Rnd) + 0
    If blnsCheck(intRandom) = False Then
      ' it's a new random number
      Label1(intCount) = List1.List(intRandom)
      intCount = intCount + 1
      bCancel = intCount >= List1.ListCount
      blnsCheck(intRandom) = True
    End If
  Loop Until bCancel

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.