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.) EndWithI just used the designer and exported the code to VB6, then made the necessary changes to make it work in VFP9.