Sub Main

'Create Grapher as an Object
Dim Grapher As Object

'Start Grapher
Set Grapher = CreateObject("Grapher.Application")

'Make Grapher visible
Grapher.Visible = True

 'Declares Plot as an object
 Dim Plot As Object

 'Opens a graph and assigns it to the "Plot" object
 Set Plot = Grapher.Documents.Open(Grapher.Path+"\Samples\Sample2.grf")

 'Get the "Graph 1" objects
 Set Graph1 = Plot.Shapes.Item ("Graph 1")

'Define object pointer
Set XAxis1 = Graph1.Axes.Item(1)

'Select object
XAxis1.Select

'Set AutoMin
XAxis1.AutoMin = False

'Set Min
XAxis1.Min = 32629

'Set AutoMax
XAxis1.AutoMax = False

'Set Max
XAxis1.Max = 34089

'Set TickMarks.EnableDTSpacing
XAxis1.Tickmarks.EnableDTSpacing = True

'Set TickMarks.DTUnits
XAxis1.Tickmarks.DTUnits = 1

'Set TickMarks.DTSpacing
XAxis1.Tickmarks.DTSpacing = 1

'Set TickMarks.DTUnits
XAxis1.Tickmarks.DTUnits = 1

'Set TickMarks.DTSpacing
XAxis1.Tickmarks.DTSpacing = 4

End Sub