Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' bind the field containing labels for pie slices and legend
FlexPie1.BindingName = "Name"
' bind the field containing numeric values for pie slices
FlexPie1.Binding = "Value"
' bind FlexPie to the data source
FlexPie1.DataSource = New [Object]() {New With {
Key .Value = 18,
Key .Name = "US"
}, New With {
Key .Value = 16,
Key .Name = "UK"
}, New With {
Key .Value = 18,
Key .Name = "China"
}, New With {
Key .Value = 16,
Key .Name = "France"
}, New With {
Key .Value = 17,
Key .Name = "Germany"
}, New With {
Key .Value = 15,
Key .Name = "Italy"
}}
' set the Legend position
FlexPie1.Legend.Position = C1.Chart.Position.Right
End Sub