Dim radChart As New RadHtmlChart()
radChart.ID = "Rad" & iRadCharts
Dim oSeries As Telerik.Web.UI.ColumnSeries = New Telerik.Web.UI.ColumnSeries
oSeries.LabelsAppearance.Visible = False
oSeries.Stacked = True
oSeries.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 LOOP
radChart.PlotArea.Series.Add(oSeries)
HtmlChartHolder.Controls.Add(radChart)