Create cursor testgen (graphtest g) Append blank Append general graphtest class Excel.Chart data '' oForm = createobject("myForm") With oForm .height = 400 .width = 600 .addobject("MyGraph","OleBoundControl") With .myGraph .height = oForm.height - 20 .width = oForm.width .left = 0 .top = 0 .ControlSource = "testgen.graphtest" Wait window nowait "Plotting..." With .Sheets('Sheet1') .Cells(1,1).Value = "NumProd1" .Cells(1,2).Value = "AMount" .Cells(1,3).value = "Quota" .Cells(2,1).Value = 113 .Cells(2,2).Value = 12000 .Cells(2,3).value = 23 .Cells(3,1).Value = 254 .Cells(3,2).Value = 45000 .Cells(3,3).value = 24 .Cells(4,1).Value = 165 .Cells(4,2).Value = 37000 .Cells(4,3).value = 42 toSource = .range(.Cells(1,1),.Cells(4,3)) Endwith With .Charts(1) .SetSourceData(toSource, 2) .hastitle = .t. .haslegend = .t. .ChartTitle.caption = "This is chart title" .ChartType = xl3DColumn Endwith *...Cetin