pnlBars.Initialize("pnlBars")
StatBarGraphPanel.AddView(pnlBars,2,2,296,196 )
Dim BD As BarData
BD.Initialize
BD.Target = pnlBars
BD.BarsWidth = 4dip
BD.Stacked = False
' set the bar colors
Charts.AddBarColor(BD, MakeTransparent(Colors.Red, 230)) '1 bar each
' Add the items:
For i = 1 To heightlist.Size ' i read out the size(=amount) with "heightlist.Size"
For Each Item As Int In heightlist
Charts.AddBarPoint(BD, 1 + i, Array As Float(0,Item))
Next
Next
Dim GStat As Graph
GStat.Initialize
GStat.Title = "Testitem1"
GStat.XAxis = "Days"
GStat.YAxis = "Height"
GStat.YStart = 0 ' min vertical scale
' GStat.YStart = 0
GStat.YEnd = 200 ' max vertical scale
GStat.YInterval = 20 ' vertical scale divisions
GStat.AxisColor = Colors.black
Charts.DrawBarsChart(GStat, BD, Colors.DarkGray)