Article ID: 189927
Article Last Modified on 12/11/1999
PUBLIC x
x=CREATEOBJECT('MyForm')
x.ole1.AutoSize=.F.
x.ole1.Stretch=0
x.ole1.DoVerb()
x.Show
DEFINE CLASS MyForm AS Form
WindowType=1
ADD OBJECT ole1 AS OleControl WITH ;
OleClass='MSGraph.chart.8',;
Top=10, Left=10, Width=100, Height=100
ENDDEFINE
PUBLIC x
x=CREATEOBJECT('MyForm')
x.Show
DEFINE CLASS MyForm AS Form
WindowType=1
ADD OBJECT ole1 AS OleControl WITH ;
OleClass='MSGraph.chart.8',;
Top=10, Left=10, Width=100, Height=100,;
AutoSize=.f.,Stretch=0
ENDDEFINEAdditional query words: kbOOP kbinterop kbVFp500a kbVFp500 kbVFp600
Keywords: kbprb kbpending KB189927