Private Sub Form_Load()
Dim N As Long
 
  Label1(0).Visible = False
 
  For N = 0 To 4
    List1.AddItem "Bezeichnung " & CStr(N)
  Next
 
End Sub
 
Private Sub Command1_Click()
Dim N As Long
Dim I As Integer
Dim List() As Long
Dim Ziehung As Integer
Dim Result As Boolean
Dim Zahl As Integer
 
ReDim List(List1.ListCount)
 
Label1(0).Visible = False
 
For N = 1 To Label1.Count - 1
  Unload Label1(N)
Next
 
Randomize -Timer
 
Ziehung = 0
 
While Ziehung < List1.ListCount
 
  Ziehung = Ziehung + 1
 
  Do
    Zahl = Int(List1.ListCount * Rnd)
    Result = True
      For I = 1 To Ziehung - 1
        If List(I) = Zahl Then
          Result = False: Exit For
        End If
      Next
  Loop Until Result = True
 
  List(Ziehung) = Zahl
 
Wend
 
Label1(0).Move 0, 0, 2000, 225
Label1(0).Caption = List1.List(List(1))
Label1(0).Visible = True
 
For N = 1 To List1.ListCount - 1
  Load Label1(N)
   Label1(N).Move 0, Label1(N - 1).Top + 300, 2000, 225
   Label1(N).Visible = True
  Label1(N).Caption = List1.List(List(N + 1))
Next
 
End Sub