Sub Main

 'Declares GrapherApp as an object
 Dim GrapherApp As Object

 'Creates an instance of the Grapher Application object and assigns it
 'to the variable named "GrapherApp"
 Set GrapherApp = CreateObject("Grapher.Application")

 'Makes Grapher visible
 GrapherApp.Visible = True

 'Declares Plot as an object
 Dim Plot As Object

 'Creates a plot document in Grapher and assigns it to the variable
 'named "Plot"
 Set Plot = GrapherApp.Documents.Add(grfPlotDoc)

 'Declares Shapes as an object
 Dim Shapes As Object

 'Assigns the AutoShapes collection to the variable named "Shapes"
 Set Shapes = Plot.Shapes

 'Declares LineGraph as an object
 Dim LineGraph As Object

 'Creates a graph and assigns it to the variable named "LineGraph"
 Set LineGraph = Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\sample3.dat")

 'Declare LinePlot as an object
 Dim LinePlot As Object

 'Set LinePlot to the first line plot on the LineGraph graph
 Set LinePlot = LineGraph.Plots.Item(1)

End Sub