Imports FusionCharts.Charts
Partial Class MSCOlumn2D
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'store chart config data as json string
        Dim jsonData As String
        jsonData = "{      'chart': {        'caption': 'App Publishing Trend',        'subCaption': '2012-2016',        'xAxisName': 'Years',        'yAxisName' : 'Total number of apps in store',        'formatnumberscale': '1',        'drawCrossLine':'1',        'plotToolText' : '<b>$dataValue</b> apps on $seriesName in $label',				'theme': 'fusion'      },      'categories': [{        'category': [{'label': '2012'        }, {'label': '2013'        }, {'label': '2014'        }, {'label': '2015'        },{        'label': '2016'        }        ]      }],      'dataset': [{        'seriesname': 'iOS App Store',        'data': [{'value': '125000'        }, {'value': '300000'        }, {'value': '480000'        }, {'value': '800000'        }, {'value': '1100000'        }]      }, {        'seriesname': 'Google Play Store',        'data': [{'value': '70000'        }, {'value': '150000'        }, {'value': '350000'        }, {'value': '600000'        },{'value': '1400000'        }]      }, {        'seriesname': 'Amazon AppStore',        'data': [{'value': '10000'        }, {'value': '100000'        }, {'value': '300000'        }, {'value': '600000'        },{'value': '900000'        }]      }]    }"
        'create chart instance
        'chart type, chart id, width, height, data format, data source as string
        Dim mscombi As New Chart("mscolumn2d", "column_chart", "800", "400", "json", jsonData)
        'render chart
        Literal1.Text = mscombi.Render()
    End Sub
End Class