> With Thisform.RMChartX1 > .Reset > * .RMCBackColor = Default > .RMCStyle = RMC_CTRLSTYLEFLAT > .RMCWidth = 600 > .RMCHeight = 450 > .RMCBgImage = "" > .Font = "Tahoma" > * '************** Add Region 1 ***************************** > .AddRegion > With .Region(1) > .Left = 5 > .Top = 5 > .Width = -5 > .Height = -5 > .Footer = "" > * '************** Add Series 1 to region 1 ******************************* > .AddGridlessSeries > With .GridLessSeries > .SeriesStyle = RMC_PIE_3D > .Alignment = RMC_FULL > * .Explodemode = RMC_EXPLODE_BIGGEST > .Lucent = .f. > .ValueLabelOn = RMC_VLABEL_TWIN > .HatchMode = RMC_HATCHBRUSH_OFF > .StartAngle = 0 > * '****** Set data values ****** > sTemp = "100*67*38*44" > .DataString = sTemp > EndWith > EndWith > nRetVal = .Draw(.t.) > EndWith > >>