Private Sub Form_Load()
 
  Dim i%, j%, n%, xp&, yp&, Per%
 
  Me.ScaleMode = vbPixels
  n = 0
  For i = 0 To 14 - 1 ' Anzahl Linien
    If i > 0 Then Load Line1(i)
    yp = 30 + 40 * i ' Abstand von oben und Abstand zwischen den Linien
    With Line1(i)
      .X1 = 10
      .Y1 = yp
      .X2 = 800
      .Y2 = yp
      .Visible = True
    End With
    For j = 1 To 12 ' Anzahl Abholstellen
      If n > 0 Then Load Label1(n)
      Per = aRs!AnzahlPersonen ' Anzahl Personen. Datenbank geöffnet?
      xp = 30 + 60 * (j - 1) ' Abstand von links und Abstand zwischen den 
      ' Abholstellen
      With Label1(n)
        .Alignment = 2
        .Caption = CStr(Per)
        .Move xp, yp - 15, 30, 30
        .BorderStyle = vbBSNone
        .ForeColor = vbWhite
        .BackColor = QBColor(Rnd * 14)
        .ToolTipText = "Uhrzeit: ..."
        .ZOrder vbBringToFront
        .Visible = True
      End With
      n = n + 1
    Next j
  Next i
 
End Sub

Gruss,

Zardoz