Private Sub renderBubbleChart()
Dim bunifuBubbleChart As Bunifu.Charts.WinForms.ChartTypes.BunifuBubbleChart = New Bunifu.Charts.WinForms.ChartTypes.BunifuBubbleChart()
' For this example we will use random values
' Add your data from your source - accepts 3D points
' Below is an example from a random values
Dim point3Ds As List(Of Bunifu.Charts.WinForms.Point3D) = New List(Of Bunifu.Charts.WinForms.Point3D)()
For i As Integer = 0 To 5 - 1
Dim point3D As Bunifu.Charts.WinForms.Point3D = New Bunifu.Charts.WinForms.Point3D()
point3D.X = r.[Next](0, 20)
point3D.Y = r.[Next](0, 20)
point3D.Radius = r.[Next](0, 20)
Dim data As Bunifu.Charts.WinForms.Point3D() = point3Ds.ToArray()
bunifuBubbleChart.Data = data
' Specify the target canvas
bunifuBubbleChart.TargetCanvas = bunifuChartCanvas1
' Beautify the chart by sepcifying the color
bunifuBubbleChart.BackgroundColor = Color.FromArgb(r.[Next](256), r.[Next](256), r.[Next](256))