Sub Main

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

 GrapherApp.Visible = True
 Dim Docs As Object
 Set Docs = GrapherApp.Documents

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

 Set Graph = Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\sample3.dat")

 Dim ScatterPlot As Object
 Set ScatterPlot = Graph.Plots.Item(1)

ScatterPlot.symbolFreq = 1
ScatterPlot.symbol.Index = 38
ScatterPlot.symbol.size = 0.35
ScatterPlot.symbol.color = RGB(255,0,0)
ScatterPlot.symbol.lineColor = grfColorBlue

ScatterPlot.Clipping.UseCriteria = True
ScatterPlot.Clipping.UseNullCriteria = True
ScatterPlot.Clipping.AddNullValue("10.5")

End Sub