>Hi there,
>
>i want to use the Graphics Server in my Foxpro 7 application.
>I installed it's activex control and now have a form with a bubble graph on it.
>
>I want to fill this graph with values based on a dbf.
>I can set the radius of the bubbles, set the x-ax value
>but does anybody know how to set the Y-ax value for each bubble??
>
>Any example codings?
>
>HELP ME!
>
>regards,
>
>Erwin
Hello Erwin
Here is tow years old the sample of my code for graphic server, may be it will help you
Vladimir

xx=thisform.grp
xx.symboldata=thisform.spinner2.value
xx.drawstyle=thisform.optiongroup1.value-1
xx.foreground=thisform.spinner1.value
xx.GraphType=thisform.combo2.value-1
xx.LineStats=thisform.combo1.value-1
xx.gridstyle=thisform.combo4.value
xx.numsets=1
xx.numpoints=10
IF not empty(thisform.text1.value)
xx.GraphTitle=thisform.text1.value
ENDIF
IF not empty(thisform.text2.value)
xx.BottomTitle=thisform.text2.value
ENDIF
IF not empty(thisform.text3.value)
xx.LeftTitle=thisform.text3.value
ENDIF
IF not empty(thisform.text4.value)
xx.GraphCaption=thisform.text4.value
ENDIF

*!* xx.thisset=1
select (thisform.tbn)
go top
j=1
m.yy=thisform.combo5.displayvalue
m.zz=thisform.combo6.displayvalue
if empty(thisform.combo6.displayvalue)
xx.autoinc=1
else
xx.autoinc=0
endif
do while not eof()


*!* FOR j=1 to xx.numpoints
if empty(thisform.combo6.displayvalue)

xx.data(j)=eval(m.yy)
xx.xpos(j)=j
ELSE
xx.data(j)=eval(m.yy)
xx.xpos(j)=eval(m.zz)
ENDIF
j=j+1
skip 1
enddo
xx.numpoints=j
*!* ENDFOR

xx.refresh
xx.DrawMode=thisform.combo3.value-1