Dim canvas As Bunifu.Dataviz.WinForms.BunifuDatavizBasic.Canvas = New Bunifu.Dataviz.WinForms.BunifuDatavizBasic.Canvas()
Dim datapoint1 As Bunifu.Dataviz.WinForms.BunifuDatavizBasic.DataPoint
bunifuDataViz1.colorSet.Add(Color.Black)
datapoint1 = New Bunifu.Dataviz.WinForms.BunifuDatavizBasic.DataPoint(Bunifu.Dataviz.WinForms.BunifuDatavizBasic._type.Bunifu_area)
Dim random As Random = New Random()
datapoint1.addLabely("MON", random.[Next](0, 50).ToString())
datapoint1.addLabely("TUE", random.[Next](0, 50).ToString())
datapoint1.addLabely("WED", random.[Next](0, 50).ToString())
datapoint1.addLabely("THU", random.[Next](0, 50).ToString())
datapoint1.addLabely("FRI", random.[Next](0, 50).ToString())
datapoint1.addLabely("SAT", random.[Next](0, 50).ToString())
datapoint1.addLabely("SUN", random.[Next](0, 50).ToString())
canvas.addData(datapoint1)
bunifuDataViz1.Renderint2))