@Code 

Dim myChart as new Chart(600,400)

Dim xarr(4)

xarr(0)="Peter"

xarr(1)="Andrew"

xarr(2)="Julie"

xarr(3)="Mary"

xarr(4)="Dave"

Dim yarr(4)

yarr(0)="2"

yarr(1)="6"

yarr(2)="4"

yarr(3)="5"

yarr(4)="3"

myChart.AddTitle("Employees") 

myChart.AddSeries("Employees","column",,,,,xarr,,yarr,,) 

myChart.Write()

End Code