Graficacion en Visual Foxpro

Acá te paso un ejemplo del uso para MS Graph, espero te sirva.
public pantalla
pantalla = createobject("form")
pantalla.windowtype=1
pantalla.height=570
pantalla.width=790
pantalla.backcolor=RGB(182,193,208)
pantalla.movable = .f.
pantalla.minbutton = .f.
pantalla.icon="c:\terracota\img\3dpg.ico"
pantalla.caption="Resumen de Información para la Toma de Desiciones"
pantalla.addobject("objeto", "olecontrol", "MSChart20Lib.MSChart.2")
pantalla.objeto.top = 0
pantalla.objeto.left = 0
pantalla.objeto.height = 450&&pantalla.height
pantalla.objeto.width = 790&&pantalla.width
pantalla.objeto.visible = .t.
pantalla.objeto.chartType = ThisForm.Optiongroup1.value
pantalla.objeto.Title.Text = "Diagrama de Pareto - Clientes por Período (10 Max)"
pantalla.objeto.ColumnCount = 1
pantalla.visible = .t.
pantalla.lockscreen = .t.
***************************
SELECT clientes.apenom, sum(Articulos.precio_costo*Pedidoarticulo.cantidad) as sumcosto,;
sum(Articulos.precio_lista*Pedidoarticulo.cantidad) as sumlista,Pedidos.cod_pedi,;
sum(Pedidoarticulo.precio_tot) as sumfact;
FROM pedidoarticulo,pedidos, clientes ;
where Pedidos.cod_pedi = Pedidoarticulo.cod_pedi and clientes.cod_clie= pedidos.cod_clie;
and Pedidos.fecha between ThisForm.Text1.value and ThisForm.Text2.value;
GROUP BY clientes.apenom into Cursor CVenta
sele Cventa
if eof()
pantalla.visible = .f.
Messagebox("Ud. no ha tenido"+chr(13)+"ventas en este período", 48, "Mensaje de Sistema")
else
Sele top 10 * from CVenta order by sumfact DESC into cursor Cventas
sele Count(*) as cantidad from Cventas into cursor Ccan
Xcant=Ccan.cantidad
sele Cventas
go top
***************
lnRow = 1
WITH pantalla.objeto.Object
.RowCount = 0
.RowLabelCount = 0
.RowCount = Xcant
.RowLabelCount = 1
FOR x =1 to Xcant
.Column = 1
.Row = lnRow
.RowLabel = SUBSTRC(alltrim(Cventas.apenom),1,35)
.Data = (Cventas.sumfact)
skip
lnRow = lnRow+1
ENDFOR
ENDWITH
pantalla.lockscreen = .f.
Endif