Sub Main

 Dim GrapherApp As Object
 Set GrapherApp = CreateObject("Grapher.Application")
 GrapherApp.Visible = True
 Dim Plot As Object

 Set Plot = GrapherApp.Documents.Add(grfPlotDoc)
 Dim Shapes As Object
 Set Shapes = Plot.Shapes

 Dim BarChart As Object
 Set BarChart = Shapes.AddBarChartGraph(GrapherApp.Path+"\samples\sample3.dat",,,)

Set BarChart1 = BarChart.Plots.Item(1)
BarChart1.barWidth=2000
BarChart1.UseColorTable = True


End Sub