Dim radChart As New RadHtmlChart()radChart.ID = "Rad" & iRadChartsDim oSeries As Telerik.Web.UI.ColumnSeries = New Telerik.Web.UI.ColumnSeriesoSeries.LabelsAppearance.Visible = FalseoSeries.Stacked = TrueoSeries.GroupName = "test"LOOP Dim oCategorySeriesItem As Telerik.Web.UI.CategorySeriesItem = New Telerik.Web.UI.CategorySeriesItem oCategorySeriesItem.Y = Format(v, "0.00") radChart.PlotArea.XAxis.Items.Add(sDate) oSeries.SeriesItems.Add(oCategorySeriesItem) Dim oCategorySeriesItem2 As Telerik.Web.UI.CategorySeriesItem = New Telerik.Web.UI.CategorySeriesItem oCategorySeriesItem2.Y = Format(vMax, "0.00") oCategorySeriesItem2.BackgroundColor = Drawing.Color.Beige radChart.PlotArea.XAxis.Items.Add(sDate) oSeries.SeriesItems.Add(oCategorySeriesItem2)END LOOPradChart.PlotArea.Series.Add(oSeries)HtmlChartHolder.Controls.Add(radChart)