Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
oGraph.Pad = 24
oGraph.ValueAxis.Format = "value format `0`"
var_Serie = oGraph.Series.Add("Hulunbuir{China}(263068),Abu Dhabi{United Arab Emirates}(97200),Jiuquan{China}(167996),Altamira{Brazil}(159891),Brasília{Brazil}(5784),Mumbai{India}(603.4),Delhi{India}(1484),Chongqing{China}(82400),Hulunbuir{China}(263068),Sao Paulo{Brazil}(1522),Linfen{China}(20527),Santiago{Chile}(641),Mexico City{Mexico}(1485),Belo Horizonte{Brazil}(313),Hangzhou{China}(16817),Nairobi{Kenya}(696),Berlin{Germany}(891.68),Montreal{Canada}(431.5),Cordoba{Argentina}(576),Manaus{Brazil}(11401),Astana{Kazakhstan}(810),Goiânia{Brazil}(741),Cali{Colombia}(564),Sao Paulo{Brazil}(1522),Goiania{Brazil}(781)")
	var_Serie.Type = "Col"
	var_Serie.Vertical = .t.
oGraph.Sort = "0:D"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.ValuePoint = "0,,,,lightgray,1"
oGraph.ValueAxis.MajorGridLines.Step = 4
var_Serie = oGraph.Series.Add("One(79.38 79.57 78.86 79.01)")
	var_Serie.Type = "candlestick"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
' oGraph.Series.Add("Open,High,Low,Close","msft").Type = "candlestick"
var_Serie = oGraph.Series.Add("Open,High,Low,Close","msft")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `candlestick`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.ValuePoint = "0,,,,lightgray,1"
oGraph.ValueAxis.MajorGridLines.Step = 4
var_Serie = oGraph.Series.Add("One(79.38 79.57 78.86 79.01)")
	var_Serie.Type = "ohlc"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
' oGraph.Series.Add("Open,High,Low,Close","msft").Type = "ohlc"
var_Serie = oGraph.Series.Add("Open,High,Low,Close","msft")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `ohlc`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25 1,2 49 2,3 70 3,4 86 4,5 96 5,6 100 4,7 96 3,8 86 2,9 70 1,10 49 1,11 25 1","Bell<b>1")
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 32
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 32"

var_Serie1 = oGraph.Series.Add("1 -25 1,2 -49 2,3 -70 3,4 -86 4,5 -96 5,6 -100 6,7 -96 5,8 -86 4,9 -70 3,10 -49 2,11 -25 1","Bell<b>2")
	var_Serie1.Type = "bubble"
	' var_Serie1.Misc(1) = 32
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Misc(1) = 32"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatter"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatter`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatter"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatter`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
	var_Serie.Type = "scatterline"
	var_Serie.Style = 1
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterline"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatterline`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterline"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatterline`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
	var_Serie.Type = "scatterarea"
	var_Serie.Style = 1
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterarea"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatterarea`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterarea"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatterarea`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarscatter"
	var_Serie.Color = "red"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarLine"
	var_Serie.Color = "red"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarArea"
	var_Serie.Color = "lime"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "rangearea"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `rangearea`"

' oGraph.Series.Add("Jan(3 13), Feb(4 15), Mar(8 17), Apr(11 20), May(15 25), Jun(19 29), Jul(21 31), Aug(21 31), Sep(17 27), Oct(12 22), Nov(7 16), Dec(4 14)","Spain").Type = "rangearea"
var_Serie1 = oGraph.Series.Add("Jan(3 13), Feb(4 15), Mar(8 17), Apr(11 20), May(15 25), Jun(19 29), Jul(21 31), Aug(21 31), Sep(17 27), Oct(12 22), Nov(7 16), Dec(4 14)","Spain")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `rangearea`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"

' oGraph.Series.Add("Jan(3 13), Feb(4 15), Mar(8 17), Apr(11 20), May(15 25), Jun(19 29), Jul(21 31), Aug(21 31), Sep(17 27), Oct(12 22), Nov(7 16), Dec(4 14)","Spain").Type = "RangeColumn"
var_Serie1 = oGraph.Series.Add("Jan(3 13), Feb(4 15), Mar(8 17), Apr(11 20), May(15 25), Jun(19 29), Jul(21 31), Aug(21 31), Sep(17 27), Oct(12 22), Nov(7 16), Dec(4 14)","Spain")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `RangeColumn`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.Template = "Misc(18) = 2" // oGraph.Misc(18) = 2
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "pie"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `pie`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "pie"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `pie`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "waterfall"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `waterfall`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "waterfall"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `waterfall`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "radarcolumn"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "radarcolumn"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "radarcolumn"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `radarcolumn`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "radarcolumn"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `radarcolumn`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "radarline"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "radarline"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "radarline"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `radarline`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "radarline"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `radarline`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "radararea"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "radararea"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "radararea"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `radararea`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "radararea"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `radararea`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "column"
var_Serie = oGraph.Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `column`"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "column"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "column"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "column"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `column`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "column"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `column`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "line"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "line"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "line"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `line`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "line"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `line`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
		var_Serie.Type = "area"
		var_Serie.Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
		var_Serie1.Type = "area"
		var_Serie1.Stack = "group"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Type = "area"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Type = `area`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Type = "area"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Type = `area`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("1920(1.8),1945(2.3),1970(13.7),1995(5.7),2020(7.8)","Population")
	var_Serie.Type = "Pie"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	' var_Serie.Misc(7) = 255
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(7) = 255"

	' var_Serie.Misc(6) = 4
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(6) = 4"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("1920(1.8),1945(2.3),1970(13.7),1995(5.7),2020(7.8)","Population")
	var_Serie.Type = "Line"
	' var_Serie.Misc(6) = 4
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(6) = 4"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("1920(1.8),1945(2.3),1970(13.7),1995(5.7),2020(7.8)","Population")
	var_Serie.Type = "Line"
	var_Serie.Style = 1
	' var_Serie.Misc(4) = 0
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(4) = 0"

	' var_Serie.Misc(5) = 1
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(5) = 1"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
	' var_Serie.Misc(3) = .f.
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(3) = False"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
	' var_Serie.Misc(2) = 2
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(2) = 2"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Cursor as P
Dim var_Serie as P
Dim var_Serie1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_Serie = oGraph.Series.Add("11 22 33,44 55 66,77 88 99,12 34 56,78 90 23")
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 64"

var_Serie1 = oGraph.Series.Add("21 32 43,54 65 76,87 98 09,45 67 89,90 23 45")
	var_Serie1.Type = "bubble"
	' var_Serie1.Misc(1) = 64
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Misc(1) = 64"

var_Cursor = oGraph.Cursor
	var_Cursor.Visible = .t.
	var_Cursor.ShowCursorXLine = .f.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.AsPercent = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").LegendFormat = "trim(label replace `Ocean` with ``)"
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.LegendFormat = `trim(label replace ``Ocean`` with ````)`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	' var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001).Stack = "A"
	var_Serie = var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `A`"

	' var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002).Stack = "A"
	var_Serie1 = var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002)
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `A`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("1920(1.8),1945(2.3),1970(3.7),1995(5.7),2020(7.8)","Population")
	var_Serie.Type = "Line"
	var_Serie.Style = 1
	' var_Serie.Misc(6) = 2
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(6) = 2"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.Visible = .f.
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "category + `<br><b>` + (percent format ``) + `%`"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
		var_Serie.Visible = .f.
		var_Serie.Vertical = .t.
		var_Serie.Name = 2001
	' var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)").Name = 2002
	var_Serie1 = var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Name = 2002"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABUQDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKsGRHF6MI6gOYpCgOIYjRJNIASVAceAAHCUZrjSgobAiCYlTZCIBQS5oOBIACmabiegZLgmQInUrMEggVDgJSPuTWNQUdYdJQTHIZBpEWyLKjkNQwWrCNr3DTUEyNDauIDpCKLCpGZYYVRPOAgAKldxhGCaJokGkgc4HHyrcCwfDAMraCQQWAAF62Jb1JyrSSBchnOwpDpuCaVQLXUB5RRNQyZTiyIrtS5AAqnNJzW5cE46Li0B5QAC8QA1S7NPo/HaZT5kGB7ZDddzuADfcLlfD5BxEDCUhQmEPAbl6K4hlKQ5snwNwtleDxpBeMRIHmd4+A8R4/BuRZvEABQDEmDJoHUOQZEYMgVjQSIEE0fwRjCWQJAoEIXHWQxCAGBBggAbpemOCJaDaRowkQKwfgSEJCBQDAGnCWAsDYTJTLSBwOlgfghggIgohYIA3A0Iw8GcCxCigZAsguB4hBwQ4HAyZAMjMJhJjIPBdA0SZxkAOoPEOIhMGEDYJHGSB0gmIg5CYSAokgAZggME4DCkAhACbIhgioIwImQDhXCOCQRHgNwogcIJyGCGImBGMAyAqYxJCISINAcAJcC0JxGmCbIiByQ5Zk4dYdCWORqFgJJGACYIkB0A5pn6AYgAmcY8DwHRDlCOg3CaZIKCwfgSgOOgUDwKRHFCfoUiWKRaF4eQACWMhUGEDoKHGWBAigag6gqJIpCmYJogMExDEqLA0ioah6giKAdkQGpOjWLQrGobjfEYMJwioHhEDqfpBjACohmAQoxGwewakiMpsisNBCCqbALEAQ40i0KtjCYRhQnSLQekQWxul2NwKlGaBEjgbg7gqZI5m4a4kEQK4tkuMBFjuLprFiDgnAYYJ8jAHxEHuXp5j4L4rnafI/m+PAGnoLBvgwEBH5Aa5Ih8GhEBKUIABKMJsEMDwtAecQnBSRYxFwXwakYcZBCSNZDnGcQrCGlIigQagQkscgIEyShyjyKI3CARI8j8MZMDMLJXDSTZEjKYwqk6BJMnMPI8goMYwEQLoIEEOxElGNBdB8SpSHSTQjE6UZLj0FxRBONQ9E6cgpEaUQYj0IYFA0bxdlcNZilwfwTEiYRUDwHZDkCSxoAyNhQnMYgTHWYp4gcFB3C2Uxzl0N4IoQBvAjEwAQIApRfDvH2PELgOhEhUDwI0GgxBIgEDQEMRQ4hPgGBKBgEgSBTjIHkHwS4KQ8siEQJIMIkQxCvBwCoS4hAQCkBuIYcIuRrBzE6BMK4Eg7D0HOEAewIgDilFwPwE4mBODvDUCoew9BsiMCyJYQg+BlAiEwMQNArxwCKH6PARYLR6hSCuFYMYFRSgZBMCwA45gfiFHSAocomB5AnCmGcH4tAkgNFGHkFQNAGAEHAN4GQERhgQF0GsDIxg/iTHIJwMw4RVA2EMCEOA9APgGE+JgNATBHE4F6AcUAZwuAYAAAgBBAQ==")
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
		var_Serie.Color = 16777216
		var_Serie.Vertical = .t.
	' var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)").Color = 16777216
	var_Serie1 = var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Color = 16777216"

oGraph.SeriesColors = "red,RGB(255,128,0)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Series as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.AsPercent = .t.
	var_ValueAxis.Format = "(value  * 100 format `0`) + `%`"
var_Series = oGraph.Series
	var_Series.Add("Asian(10),Black(13),Hispanic(15),White(60),Other(7)","<fgcolor blue>Population")
	' var_Series.Add("Asian(65),Black(69),Hispanic(67),White(70),Other(68)").Name = "<fgcolor teal>Height"
	var_Serie = var_Series.Add("Asian(65),Black(69),Hispanic(67),White(70),Other(68)")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Name = `<fgcolor teal>Height`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABVoDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADIOAzyPAsVwSGobRpkEaIMiONoYR5Ac4yFAcQxHE6TZRGeQRRiGModT5HFIxXIsBgRECEQChFzQcCQAJUVZFdAyVQlDRCGSpJrkEC4cBCCZPTzUNR1LS9WS1DoaRJoG4ZHDUMJyS7dcjyHINGwxMinJrwKA6bi6BAwYYAEwUPAYcT9QaRZznOQaLhiQIdVxDNbURgWKgVBK/AiqCA7Bq2VpYZZmFB5VJ9P5LPiEcE+fAdTQHUS0dItPR7OiacJ4TpdF48BhVdY7UCEdoADYtYxCP6qSxiFDUDA/CsF5KloAAXm4VBfEuKJUFuZxSi6DouAY34NDWdItg2HgTjaWZHDuVpPAae4DkQGRwjyXBvlcE47iMdoelQDYyHcHJkGGFIAEAARAGkGJHEGVByBkVBUCSFhEgQIQ2BMRpDGQJAoHuEIXDUCAGBGAYBHsc4NhMNJOCqCJCDoKIKiKGIuC6CxjAiMgyguYw4iSXg2g2MZoEcEJJjGLA4CiBwwnSJQdEOcogHcEBKjGZBDCuB4xBSMQfEQcpUgAEoLgICBMC6SBBDiPghkUEwEgkFJMEILBVCyR4RDiGQckcIY8DYCwJnGQA6hAJApBIRoSCSKQyE6FAlCkUhWhYJYpHIXoYCYIwcg0FZHiCeA0hqJpJjocIQmQWQeEmEpklkPhRhSZRZF4WYWmWWR+GEFRoCoEoGBmQpQiiAwTgMIh0G4DpokmToPh2KQpmaFYfCmCZ8jcH4EnITBYA+RpQkQLg3A0Iw8iMIAHgGQA3AsSZxjwPApkcYS5h4BAijQegRAsCRAjQH5EhKXIBBKS4pGSPQhgUAo4HUEtHhAPQxgqUoMmNjRQhAHA7G6I42CUM4HmEKA7jILIrDKTo0C0KxSlaNglhKXB/BMSBxFwUw6k4c4im2QZujwIJtCySYSGyFQYEOKwuk2M5tBEHpTjUbR7GQTgjgUUJym+QoyAwJwiDsSAxDQNJEi8fBXBePpxiGXA8AyMgbjMI5MHIXIenaRQvhwYp8BOMpskMM5PnMLQHAyQ4xAyIw4kWL4sGZDoxmiGwxkKLpxlQPQLi8TQaniUgziwap+BMbwRBsBJBjIO48hcHIHEGMAyAqbBbB6SZVjKLQnDuNptlsfBvA2Qx4iyKwM4GR6BBBMDAQwxQIDkA8BQQYoA+iqGSEUNgmxKhKDKLwVojQ3AGACBAFIFxCAgFIE8RgogUgcBiAsUY8BJAYCaLMPw/xgDwD2F8BYwxtBcCeBcNoWxOBwFIGEZgRgagGCcA0cYJwajOCiFwf4BRhAID4DARYxAEhcCgJkYwdQeB/CwCoeowhcgqBoAwAYWAxAVEiOIdAagkCLGCLmAoBwMB4DoEsRgYRwgyBkIcUg4BmAfZKEgQQUBGhCeGDYBAhQUDaBGBUAYeBHBVAcCIJ4KARCSCGGgbwcQjgaA4GkfoxgfjkDUV8GAswLCDE8AIBwtAjAAAQAggIA=")
var_Series = oGraph.Series
	' var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)").Color = 16777216
	var_Serie = var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Color = 16777216"

	' var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)").Color = 16777216
	var_Serie1 = var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Color = 16777216"

oGraph.SeriesColors = "red,RGB(255,128,0)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
oGraph.SeriesColors = "red,RGB(255,128,0)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)").Color = "red"
	var_Serie = var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Color = `red`"

	' var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)").Color = 33023
	var_Serie1 = var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Color = 33023"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
' oGraph.Series.Item(1).Position = 0
var_Serie = oGraph.Series.Item(1)
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Position = 0"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Serie2 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)").Key = "1st"
	var_Serie = var_Series.Add("Facebook(125),Google(94),Twitter(38),LinkedIn(172),Instagram(53),Pinterest(187),Snapchat(104),WhatsApp(19)")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Key = `1st`"

	' var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)").Key = "2nd"
	var_Serie1 = var_Series.Add("Facebook(176),Google(81),Twitter(47),LinkedIn(159),Instagram(62),Pinterest(193),Snapchat(118),WhatsApp(25)")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Key = `2nd`"

' oGraph.Series.Item("2nd").Visible = .f.
var_Serie2 = oGraph.Series.Item("2nd")
oGraph.TemplateDef = "dim var_Serie2"
oGraph.TemplateDef = var_Serie2
oGraph.Template = "var_Serie2.Visible = False"

oGraph.EndUpdate()

' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	oGraph.Series.Remove(0)
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.EndUpdate()

' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	oGraph.Series.Clear()
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as local
Dim var_Serie2 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as P
Dim var_ValueAxis1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(1) = `1,5`" // oGraph.Misc(1) = "1,5"
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_ValueAxes = oGraph.ValueAxes
	var_ValueAxis = var_ValueAxes.Add("g+a")
		var_ValueAxis.End = 0.66
		var_ValueAxis.MajorGridLines.Step = 1000
	var_ValueAxis1 = var_ValueAxes.Add("p")
		var_ValueAxis1.Start = 0.66
		var_ValueAxis1.MajorGridLines.Step = 1000
var_Series = oGraph.Series
	var_Serie = var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP")
		var_Serie.Axis = "g+a"
		var_Serie.Stack = "g+a"
	' var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population").Axis = "p"
	var_Serie1 = var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Axis = `p`"

	var_Serie2 = var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area")
		var_Serie2.Axis = "g+a"
		var_Serie2.Stack = "g+a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	' var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP").Stack = "g+a"
	var_Serie = var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `g+a`"

	var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population")
	' var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area").Stack = "g+a"
	var_Serie1 = var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `g+a`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Serie2 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	' var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP").Stack = "all"
	var_Serie = var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `all`"

	' var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population").Stack = "all"
	var_Serie1 = var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `all`"

	' var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area").Stack = "all"
	var_Serie2 = var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area")
	oGraph.TemplateDef = "dim var_Serie2"
	oGraph.TemplateDef = var_Serie2
	oGraph.Template = "var_Serie2.Stack = `all`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP")
	var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population")
	var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area")
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Serie2 as local
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as P
Dim var_ValueAxis1 as P
Dim var_ValueAxis2 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_ValueAxes = oGraph.ValueAxes
	var_ValueAxis = var_ValueAxes.Add("g")
		var_ValueAxis.End = 0.33
		var_ValueAxis.Visible = .f.
		var_ValueAxis.MajorGridLines.Step = 1000
	var_ValueAxis1 = var_ValueAxes.Add("p")
		var_ValueAxis1.Start = 0.33
		var_ValueAxis1.End = 0.66
		var_ValueAxis1.Visible = .f.
		var_ValueAxis1.MajorGridLines.Step = 1000
	var_ValueAxis2 = var_ValueAxes.Add("a")
		var_ValueAxis2.Start = 0.66
		var_ValueAxis2.Visible = .f.
		var_ValueAxis2.MajorGridLines.Step = 1000
var_Series = oGraph.Series
	' var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP").Axis = "g"
	var_Serie = var_Series.Add("UnitedStates(22.7),China(17.6),Japan(5.0),Germany(4.4),India(3.2),UnitedKingdom(3.1),France(3.0),Brazil(2.5)","GDP")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Axis = `g`"

	' var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population").Axis = "p"
	var_Serie1 = var_Series.Add("UnitedStates(331),China(1400),Japan(126),Germany(83),India(1400),UnitedKingdom(68),France(67),Brazil(213)","Population")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Axis = `p`"

	' var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area").Axis = "a"
	var_Serie2 = var_Series.Add("UnitedStates(9.8),China(9.6),Japan(0.377),Germany(0.357),India(3.3),UnitedKingdom(0.610),France(0.695),Brazil(8.5)","Area")
	oGraph.TemplateDef = "dim var_Serie2"
	oGraph.TemplateDef = var_Serie2
	oGraph.Template = "var_Serie2.Axis = `a`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValuePoint = "0,,,,,,0"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,,,,,,8"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,,,,,4"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,,,,red"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,,,red"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,,0"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,,4"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,,red"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,,4"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",,red"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = ",red"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
oGraph.ValuePoint = "16"
' oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("Pacific(16525), Atlantic(10646), Indian(7056), Southern(2033), Arctic(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"

oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 64
oGraph.AllowValueResize = .f.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.ValueAxis.Format = "value format ``"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.Template = "ScrollPos(1) = 256" // oGraph.ScrollPos(1) = 256
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.AllowScroll = .f.
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.ValueAxis.Format = "value format ``"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.ValueAxis.Format = "value format ``"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.ScrollBars = 0
oGraph.AllowScroll = .f.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.ValueAxis.Format = "value format ``"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.ScrollBars = 0
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.Pad = 24
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.Invalid = "<fgcolor red>no or invalid data"
oGraph.FormatText = 9 'exTextAlignBottom + exTextAlignCenter

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").Vertical = .t.
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Vertical = True"

oGraph.Sort = "0:D"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").Vertical = .t.
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Vertical = True"

oGraph.Sort = "0"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.AutoFit = .f.
oGraph.CategoryAxis.Format = "value replace `Ocean` with ``"
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").Type = "Column"
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `Column`"

oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.CategoryAxis.Format = "value replace `Ocean` with ``"
oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(65) = 1" // oGraph.Background(65) = 1
oGraph.Template = "Background(66) = 16777215" // oGraph.Background(66) = 16777215
oGraph.ToolTipFormat = "`<b>` + category + `</b><br>Value: ` + (value format ``)"
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = 1
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 1"

oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Series.Add("1,2,3,4")
oGraph.AutoFit = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.ValueAxis.Format = "value format ``"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "msft"
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "candle"
oGraph.SeriesColors = "gray"
oGraph.SeriesColorsDecrease = "black"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABUQDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKsGRHF6MI6gOYpCgOIYjRJNIASVAceAAHCUZrjSgobAiCYlTZCIBQS5oOBIACmabiegZLgmQInUrMEggVDgJSPuTWNQUdYdJQTHIZBpEWyLKjkNQwWrCNr3DTUEyNDauIDpCKLCpGZYYVRPOAgAKldxhGCaJokGkgc4HHyrcCwfDAMraCQQWAAF62Jb1JyrSSBchnOwpDpuCaVQLXUB5RRNQyZTiyIrtS5AAqnNJzW5cE46Li0B5QAC8QA1S7NPo/HaZT5kGB7ZDddzuADfcLlfD5BxEDCUhQmEPAbl6K4hlKQ5snwNwtleDxpBeMRIHmd4+A8R4/BuRZvEABQDEmDJoHUOQZEYMgVjQSIEE0fwRjCWQJAoEIXHWQxCAGBBggAbpemOCJaDaRowkQKwfgSEJCBQDAGnCWAsDYTJTLSBwOlgfghggIgohYIA3A0Iw8GcCxCigZAsguB4hBwQ4HAyZAMjMJhJjIPBdA0SZxkAOoPEOIhMGEDYJHGSB0gmIg5CYSAokgAZggME4DCkAhACbIhgioIwImQDhXCOCQRHgNwogcIJyGCGImBGMAyAqYxJCISINAcAJcC0JxGmCbIiByQ5Zk4dYdCWORqFgJJGACYIkB0A5pn6AYgAmcY8DwHRDlCOg3CaZIKCwfgSgOOgUDwKRHFCfoUiWKRaF4eQACWMhUGEDoKHGWBAigag6gqJIpCmYJogMExDEqLA0ioah6giKAdkQGpOjWLQrGobjfEYMJwioHhEDqfpBjACohmAQoxGwewakiMpsisNBCCqbALEAQ40i0KtjCYRhQnSLQekQWxul2NwKlGaBEjgbg7gqZI5m4a4kEQK4tkuMBFjuLprFiDgnAYYJ8jAHxEHuXp5j4L4rnafI/m+PAGnoLBvgwEBH5Aa5Ih8GhEBKUIABKMJsEMDwtAecQnBSRYxFwXwakYcZBCSNZDnGcQrCGlIigQagQkscgIEyShyjyKI3CARI8j8MZMDMLJXDSTZEjKYwqk6BJMnMPI8goMYwEQLoIEEOxElGNBdB8SpSHSTQjE6UZLj0FxRBONQ9E6cgpEaUQYj0IYFA0bxdlcNZilwfwTEiYRUDwHZDkCSxoAyNhQnMYgTHWYp4gcFB3C2Uxzl0N4IoQBvAjEwAQIApRfDvH2PELgOhEhUDwI0GgxBIgEDQEMRQ4hPgGBKBgEgSBTjIHkHwS4KQ8siEQJIMIkQxCvBwCoS4hAQCkBuIYcIuRrBzE6BMK4Eg7D0HOEAewIgDilFwPwE4mBODvDUCoew9BsiMCyJYQg+BlAiEwMQNArxwCKH6PARYLR6hSCuFYMYFRSgZBMCwA45gfiFHSAocomB5AnCmGcH4tAkgNFGHkFQNAGAEHAN4GQERhgQF0GsDIxg/iTHIJwMw4RVA2EMCEOA9APgGE+JgNATBHE4F6AcUAZwuAYAAAgBBAQ==")
oGraph.Template = "Misc(4) = 1" // oGraph.Misc(4) = 1
oGraph.AutoFit = .t.
oGraph.DataOptions = "hdr=1 eor=';' eof=' '"
oGraph.Data = "Month Min Max;Jan -2 10;Feb 0 12;Mar 3 15;Apr 7 18;May 12 22;Jun 16 25;Jul 18 28;Aug 17 27;Sep 14 24;Oct 9 19;Nov 4 15;Dec 0 10"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value + `°`"
	var_ValueAxis.MajorGridLines.Color = "transparent"
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Month"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Min,Max"
	var_Serie.Type = "RangeColumn"
	var_Serie.Vertical = .t.
	var_Serie.Color = 16777216
oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_LineOptions as P
Dim var_LineOptions1 as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
var_LineOptions = oGraph.XAxis.AxisLine
	var_LineOptions.Width = 2
	var_LineOptions.Color = "red"
var_LineOptions1 = oGraph.YAxis.AxisLine
	var_LineOptions1.Width = 2
	var_LineOptions1.Color = "red"
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "1 99 1,2 96 2,3 92 3,4 86 4,5 79 5,6 70 6,7 60 7,8 50 8,9 38 9,10 25 10,11 13 11"
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 96
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 96"

Dim oGraph as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Tfi = "<fgcolor red>"
oGraph.Series.Add("Friendster(121111111),Facebook(979750000),Flickr(79664888),Google Buzz(170000000),Google+(107319100),Hi5(900202990),Instagram(80202990),MySpace(80202990),Orkut(45067022),Pinterest(197319100),Reddit(360250000),Snapchat(280250000),TikTok(860250000),Tumblr(146890156),Twitter(160250000),WeChat(118123370),Weibo(79195730),Whatsapp(1160250000),YouTube(844638200)")

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
		var_Serie.Name = "Population"
		var_Serie.Type = "Line"
		' var_Serie.Misc(6) = 3
		oGraph.TemplateDef = "dim var_Serie"
		oGraph.TemplateDef = var_Serie
		oGraph.Template = "var_Serie.Misc(6) = 3"

	var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
		var_Serie1.Name = "Area"
		var_Serie1.Type = "Column"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
		var_Serie.Name = "Population"
		var_Serie.Type = "Line"
		' var_Serie.Misc(6) = 3
		oGraph.TemplateDef = "dim var_Serie"
		oGraph.TemplateDef = var_Serie
		oGraph.Template = "var_Serie.Misc(6) = 3"

	var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
		var_Serie1.Name = "Area"
		var_Serie1.Type = "Column"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
? OLE.Create("DAO.DBEngine.35").Version 
? OLE.Create("DAO.DBEngine.36").Version 
? OLE.Create("DAO.DBEngine.120").Version 

Dim oGraph as P
Dim rs as P
Dim var_PrivDBEngine as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_PrivDBEngine = OLE.Create("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb").OpenRecordset("MSFT")
? OLE.Create("Exontrol.PropertiesList") 
oGraph.DataSource = rs
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
? "ADO Version:" 
? OLE.Create("ADODB.Connection").Version 

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_PrivDBEngine as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
var_PrivDBEngine = OLE.Create("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb").OpenRecordset("MSFT")
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_PrivDBEngine as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
var_PrivDBEngine = OLE.Create("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb").OpenRecordset("MSFT")
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_PrivDBEngine as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
var_PrivDBEngine = OLE.Create("DAO.DBEngine.36")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.mdb").OpenRecordset("MSFT")
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
rs = OLE.Create("ADODB.Recordset")
	rs.Open("MSFT","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb",1,1)
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
rs = OLE.Create("ADOR.Recordset")
	rs.Open("MSFT","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb",3,3)
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
rs = OLE.Create("ADODB.Recordset")
	rs.Open("MSFT","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb",3,3)
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
rs = OLE.Create("ADOR.Recordset")
	rs.Open("MSFT","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb",3,3)
oGraph.DataSource = rs
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "value left 7"
		var_FormatGridLinesOptions.Align = 1024
		var_FormatGridLinesOptions.Color = "lightgray"
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Open,High,Low,Close"
	var_Serie.Type = "ohlc"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 2
oGraph.Template = "Misc(10) = 0" // oGraph.Misc(10) = 0
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
? oGraph.DataSample 
' oGraph.Series.Add("AAPL (open),AAPL (high),AAPL (low),AAPL (close)").Type = "candle"
var_Serie = oGraph.Series.Add("AAPL (open),AAPL (high),AAPL (low),AAPL (close)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `candle`"

oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
? oGraph.DataSample 
oGraph.EndUpdate()

Dim oGraph as P
Dim rs as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
rs = OLE.Create("ADOR.Recordset")
	rs.Open("MSFT","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGraph\Sample\Access\sample.accdb",3,3)
oGraph.Data = rs.GetRows()
? oGraph.DataSample 
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Column 2,Column 3,Column 4,Column 5"
	var_Serie.Type = "candle"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "aapl"
	var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
	var_Serie.Type = "candle"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(4) = 1" // oGraph.Misc(4) = 1
oGraph.AutoFit = .t.
oGraph.DataOptions = "hdr=1 eor=';' eof=' '"
oGraph.Data = "Month Min Max;Jan -2 10;Feb 0 12;Mar 3 15;Apr 7 18;May 12 22;Jun 16 25;Jul 18 28;Aug 17 27;Sep 14 24;Oct 9 19;Nov 4 15;Dec 0 10"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value + `°`"
	var_ValueAxis.MajorGridLines.Color = "transparent"
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Month"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Min,Max"
	var_Serie.Type = "RangeColumn"
	var_Serie.Vertical = .t.
oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "aapl"
	var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
	var_Serie.Type = "candle"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(4) = 1" // oGraph.Misc(4) = 1
oGraph.AutoFit = .t.
oGraph.Import("Month Min Max;Jan -2 10;Feb 0 12;Mar 3 15;Apr 7 18;May 12 22;Jun 16 25;Jul 18 28;Aug 17 27;Sep 14 24;Oct 9 19;Nov 4 15;Dec 0 10","hdr=1 eor=';' eof=' '")
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value + `°`"
	var_ValueAxis.MajorGridLines.Color = "transparent"
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Month"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Min,Max"
	var_Serie.Type = "RangeColumn"
	var_Serie.Vertical = .t.
oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(4) = 1" // oGraph.Misc(4) = 1
oGraph.AutoFit = .t.
oGraph.DataOptions = "hdr=1 eor=';' eof=' '"
oGraph.Data = "Month Min Max;Jan -5 2;Feb -4 7;Mar 1 12;Apr 5 17;May 10 23;Jun 14 26;Jul 15 28;Aug 14 28;Sep 11 25;Oct 5 18;Nov 1 9;Dec -3 4"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Format = "value + `°`"
	var_ValueAxis.MajorGridLines.Color = "transparent"
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Month"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add()
	var_Serie.Data = "Min,Max"
	var_Serie.Type = "RangeColumn"
oGraph.SeriesColors = "RGB(9,80,239),RGB(9,120,239),RGB(249,186,7),RGB(249,173,7),RGB(255,148,51),RGB(255,125,51),RGB(255,114,51),RGB(255,120,51),RGB(255,139,51),RGB(249,171,7),RGB(249,200,7),RGB(9,110,239)"
oGraph.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Graph.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Graph.1::OLE_YPOS_PIXELS)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	oGraph.ShowToolTip("just a text to be shown when cursor hovers the view","title")
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ToolTipMargin = "16,16"
oGraph.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph.EndUpdate()

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ImageSize = 32
oGraph.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGraph.AutoFit = .t.
oGraph.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.FreezeEvents(.t.)
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").Vertical = .t.
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Vertical = True"

oGraph.EndUpdate()
oGraph.FreezeEvents(.f.)

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABUQDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKsGRHF6MI6gOYpCgOIYjRJNIASVAceAAHCUZrjSgobAiCYlTZCIBQS5oOBIACmabiegZLgmQInUrMEggVDgJSPuTWNQUdYdJQTHIZBpEWyLKjkNQwWrCNr3DTUEyNDauIDpCKLCpGZYYVRPOAgAKldxhGCaJokGkgc4HHyrcCwfDAMraCQQWAAF62Jb1JyrSSBchnOwpDpuCaVQLXUB5RRNQyZTiyIrtS5AAqnNJzW5cE46Li0B5QAC8QA1S7NPo/HaZT5kGB7ZDddzuADfcLlfD5BxEDCUhQmEPAbl6K4hlKQ5snwNwtleDxpBeMRIHmd4+A8R4/BuRZvEABQDEmDJoHUOQZEYMgVjQSIEE0fwRjCWQJAoEIXHWQxCAGBBggAbpemOCJaDaRowkQKwfgSEJCBQDAGnCWAsDYTJTLSBwOlgfghggIgohYIA3A0Iw8GcCxCigZAsguB4hBwQ4HAyZAMjMJhJjIPBdA0SZxkAOoPEOIhMGEDYJHGSB0gmIg5CYSAokgAZggME4DCkAhACbIhgioIwImQDhXCOCQRHgNwogcIJyGCGImBGMAyAqYxJCISINAcAJcC0JxGmCbIiByQ5Zk4dYdCWORqFgJJGACYIkB0A5pn6AYgAmcY8DwHRDlCOg3CaZIKCwfgSgOOgUDwKRHFCfoUiWKRaF4eQACWMhUGEDoKHGWBAigag6gqJIpCmYJogMExDEqLA0ioah6giKAdkQGpOjWLQrGobjfEYMJwioHhEDqfpBjACohmAQoxGwewakiMpsisNBCCqbALEAQ40i0KtjCYRhQnSLQekQWxul2NwKlGaBEjgbg7gqZI5m4a4kEQK4tkuMBFjuLprFiDgnAYYJ8jAHxEHuXp5j4L4rnafI/m+PAGnoLBvgwEBH5Aa5Ih8GhEBKUIABKMJsEMDwtAecQnBSRYxFwXwakYcZBCSNZDnGcQrCGlIigQagQkscgIEyShyjyKI3CARI8j8MZMDMLJXDSTZEjKYwqk6BJMnMPI8goMYwEQLoIEEOxElGNBdB8SpSHSTQjE6UZLj0FxRBONQ9E6cgpEaUQYj0IYFA0bxdlcNZilwfwTEiYRUDwHZDkCSxoAyNhQnMYgTHWYp4gcFB3C2Uxzl0N4IoQBvAjEwAQIApRfDvH2PELgOhEhUDwI0GgxBIgEDQEMRQ4hPgGBKBgEgSBTjIHkHwS4KQ8siEQJIMIkQxCvBwCoS4hAQCkBuIYcIuRrBzE6BMK4Eg7D0HOEAewIgDilFwPwE4mBODvDUCoew9BsiMCyJYQg+BlAiEwMQNArxwCKH6PARYLR6hSCuFYMYFRSgZBMCwA45gfiFHSAocomB5AnCmGcH4tAkgNFGHkFQNAGAEHAN4GQERhgQF0GsDIxg/iTHIJwMw4RVA2EMCEOA9APgGE+JgNATBHE4F6AcUAZwuAYAAAgBBAQ==")
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
	var_Serie.Color = 16777216
	var_Serie.Vertical = .t.
oGraph.EndUpdate()

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").Color = 16777216
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Color = 16777216"

oGraph.EndUpdate()

Dim oGraph as P
Dim var_CategoryAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "HTMLPicture(`china`) = `c:\exontrol\images\zipdisk.gif`" // oGraph.HTMLPicture("china") = "c:\exontrol\images\zipdisk.gif"
oGraph.Template = "HTMLPicture(`india`) = `c:\exontrol\images\auction.gif`" // oGraph.HTMLPicture("india") = "c:\exontrol\images\auction.gif"
oGraph.Template = "HTMLPicture(`usa`) = `c:\exontrol\images\colorize.gif`" // oGraph.HTMLPicture("usa") = "c:\exontrol\images\colorize.gif"
oGraph.Template = "Misc(29) = 0" // oGraph.Misc(29) = 0
oGraph.Template = "Misc(28) = 0" // oGraph.Misc(28) = 0
oGraph.ValueSize = 32
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "<img>china</img>,<img>india</img>,<img>usa</img>"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
oGraph.Series.Add("1410,1390,331")
oGraph.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Graph.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Graph.1::OLE_YPOS_PIXELS)
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	oGraph.ShowToolTip("just a text to be shown when cursor hovers the view","title")
end function

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph.EndUpdate()