<SCRIPT LANGUAGE="VBScript">
MSChart1.TitleText = "Example"
MSChart1.RowCount =1
MSChart1.ColumnCount=10
for i = 1 to 12
MsChart1.row=1
MSChart1.Column=i
MSChart1.ColumnLabel = i
next
MSChart1.chartType =1
MSChart1.ShowLegend = True
for i=1 to 12
MSChart1.ChartData =i
next
</SCRIPT>