Do While reader.Read()' Erstellen der anderen Labels mit fortlaufendem 
        ' Namen
            Dauer = DateDiff("d", reader("FLD_Anfang"), reader("FLD_Ende")) ' 2 
            ' Jahresdaten im Datensatz vorhanden!     
            newLabel = New Label
            Diagramm_Panel.Controls.Add(newLabel) 
            newLabel.BackColor = Color.Lime
            newLabel.Text = "Jahr 2010" & reader("ID_Nr")
            newLabel.Name = "Diagramm_Label" & reader("ID_Nr")
            newLabel.Location = New Drawing.Point(3, 54)
            newLabel.Size = New Drawing.Size(Dauer * 30, Balken_hoehe)        
        Loop

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist