Sub Init(pgContainer As String)
'initialize the page
Page.Initialize("wp",pgContainer).SetResponsive("master").SetHeader("Professional: WixPivot")
'create a row
Dim r1 As WixRow = Page.Page.CreateRow("R1")
'get the pivot dataset
Dim pd As List = BANano.RunJavascriptMethod("getPivotDataSet", Null)
'create pivot
Dim pvt As WixPivot
pvt.Initialize("pvt")
pvt.SetData(pd)
pvt.SetMax(True)
pvt.SetRows(Array("form", "name"))
pvt.Setheight(400)
pvt.SetWidth(1000)
pvt.SetSeparateLabel(True)
pvt.SetColumns(Array("year"))
pvt.SetValuesSum(Array("gdp", "oil"))
pvt.SetFilterSelect("name")
..
..
..
..