Dim i As Integer
  Dim iLaneCount As Integer
  Dim iMyHeight As Long
  Dim iMyStunden As Integer
 
 iLaneCount = 16
 
 iMyHeight = (picture1.Height) / 31
 iMyWidth = (picture1.Width) / iLaneCount
 
 
 
lblCol0(0).Height = iMyHeight
 
 
    For i = 1 To iMyStunden
        Load lblCol0(i)
        lblCol0(i).Height = iMyHeight
        lblCol0(i).Tag = "A" & i
        lblCol0(i).Top = lblCol0(i - 1).Top + lblCol0(i - 1).Height
        lblCol0(i).Visible = True
    Next i