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",,,)

BarChart.AddBarChart(GrapherApp.Path+"\samples\sample3.dat",,3,)

Set BarChart1 = BarChart.Plots.Item(1)
BarChart1.barWidth=2000
BarChart1.Fill.foreColor(grfColorBlue)
BarChart1.Stacked=False

End Sub