Protected Sub display_chart(ByVal r As Random)


			Dim colors As New List(Of Color)()
			colors.Add(Color.FromArgb(62, 189, 255))
			colors.Add(Color.FromArgb(98, 81, 118))
			colors.Add(Color.FromArgb(144, 63, 72))
			colors.Add(Color.LavenderBlush)

			Dim canvas = New Bunifu.DataViz.Canvas()
			Dim datapoint = New Bunifu.DataViz.DataPoint(Bunifu.DataViz.BunifuDataViz._type.Bunifu_splineArea)

			datapoint.addLabely("MON", r.Next(0, 100).ToString())
			datapoint.addLabely("TUE", r.Next(0, 100).ToString())
			datapoint.addLabely("WED", r.Next(0, 100).ToString())
			datapoint.addLabely("THUR", r.Next(0, 100).ToString())
			datapoint.addLabely("FRI", r.Next(0, 100).ToString())


			Dim datapoint2 = New Bunifu.DataViz.DataPoint(Bunifu.DataViz.BunifuDataViz._type.Bunifu_line)

			datapoint2.addLabely("MON", r.Next(0, 100).ToString())
			datapoint2.addLabely("TUE", r.Next(0, 100).ToString())
			datapoint2.addLabely("WED", r.Next(0, 100).ToString())
			datapoint2.addLabely("THUR", r.Next(0, 100).ToString())
			datapoint2.addLabely("FRI", r.Next(0, 100).ToString())

			Dim datapoint3 = New Bunifu.DataViz.DataPoint(Bunifu.DataViz.BunifuDataViz._type.Bunifu_splineArea)

			datapoint3.addLabely("MON", r.Next(0, 100).ToString())
			datapoint3.addLabely("TUE", r.Next(0, 100).ToString())
			datapoint3.addLabely("WED", r.Next(0, 100).ToString())
			datapoint3.addLabely("THUR", r.Next(0, 100).ToString())
			datapoint3.addLabely("FRI", r.Next(0, 100).ToString())


			Dim datapoint4 = New Bunifu.DataViz.DataPoint(Bunifu.DataViz.BunifuDataViz._type.Bunifu_splineArea)

			datapoint4.addLabely("MON", r.Next(0, 100).ToString())
			datapoint4.addLabely("TUE", r.Next(0, 100).ToString())
			datapoint4.addLabely("WED", r.Next(0, 100).ToString())
			datapoint4.addLabely("THUR", r.Next(0, 100).ToString())
			datapoint4.addLabely("FRI", r.Next(0, 100).ToString())
			' Add data sets to canvas
			canvas.addData(datapoint)
			canvas.addData(datapoint2)
			canvas.addData(datapoint3)
			canvas.addData(datapoint4)

			'render canvas
			bunifuDataViz1.Render(canvas)
			bunifuDataViz1.colorSet.AddRange(colors)



			End Sub