Private Sub Form_Load()
 
  Dim i&, j&, n&, xp&, yp&
 
  Me.ScaleMode = vbPixels
  Randomize
  n = 0
  For i = 0 To 14
    If i > 0 Then Load Line1(i)
    yp = 30 + 40 * i
    With Line1(i)
      .X1 = 10
      .Y1 = yp
      .X2 = 800
      .Y2 = .Y1
      .Visible = True
    End With
    xp = 10 + Int(50 * Rnd)
    For j = 1 To Int(Rnd * 8 + 2)
      If n > 0 Then Load Label1(n)
      With Label1(n)
        .Caption = ""
        .Move xp, yp - 15, 30, 30
        .BorderStyle = vbBSNone
        .BackColor = QBColor(Rnd * 15)
        .ToolTipText = "Uhrzeit: ..."
        .ZOrder vbBringToFront
        .Visible = True
      End With
      xp = xp + Int(Rnd * 60 + 40)
      n = n + 1
    Next j
  Next i
 
End Sub
 
Private Sub Label1_Click(Index As Integer)
 
  MsgBox "Pos:" & Str$(Index) & vbCr & "Uhrzeit: ..." & vbCr _
    & "Personen: ...", vbInformation + vbOKOnly
 
End Sub

Gruss,

Zardoz