Private Sub Fahrplan()
  Dim i%, j%, N%, xp&, yp&, Per%
  Dim Breite&, Hoehe&
 
  nAnzahl_Lines = 5
  AnzZustiege = 20
  Breite = 15                               ' Pixel
  Hoehe = 25                                ' Pixel
 
  Me.ScaleMode = vbPixels
  N = 0
  For i = 0 To (nAnzahl_Lines - 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
 
    If i > 0 Then
       Load Label2(i)
    End If
 
    With Label2(i)
      .left = 30
      .Alignment = 2
      .Caption = "Linienname"
      .BorderStyle = vbBSNone
      .ForeColor = QBColor(0)
      .BackColor = QBColor(14)
      .ZOrder vbBringToFront
      .Visible = True
    End With
 
    X1 = i
    Init_Linie
 
    For j = 1 To AnzZustiege                ' Anzahl Abholstellen
      If N > 0 Then Load Label1(N)
      Per = AnzPersonen                     ' Anzahl Personen. Datenbank 
      ' geöffnet?
      ' xp = 30 + 40 * (j - 1)                ' Abstand von links und Abstand _
        zwischen den
      xp = 120 + 40 * (j - 1)                ' Abstand von links und Abstand 
      ' zwischen den
 
      With Label1(N)
        .Alignment = 2
        .Caption = CStr(Per)
        .Move xp, yp - Hoehe / 2, Breite, Hoehe
        .BorderStyle = vbBSNone
        .ForeColor = QBColor(ForegroundColor)
        .BackColor = QBColor(BackgroundColor)
        .ToolTipText = "Uhrzeit: ..."
        .Tag = CStr(i) & "/" & CStr(j)
        .ZOrder vbBringToFront
        .Visible = True
      End With
      N = N + 1
    Next j
    AnzZustiege = 5
  Next i
End Sub