Object: PieChartSettings

Dim oMyPieChart, oMyCurvePieChart, oMyPos, oMySettings
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Example.tdm","TDM","")
Report.NewLayout
Set oMyPieChart = Report.ActiveSheet.Objects.Add(eReportObjectPieChart, "MyPieChart")
Set oMyPos = oMyPieChart.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.Y2 = 80
oMyPieChart.CurvePieChart.Channel.Reference = "[5]/[4]" 
Set oMySettings = oMyPieChart.Settings
oMySettings.ShowBorder = True
Call oMySettings.BorderLine.Color.SetPredefinedColor(eColorIndexBlue)
oMySettings.BorderLine.Width = eLineWidth0050
Call Report.Refresh()