Sub Main

'Create Grapher as an Object
Dim Grapher As Object
Set Grapher = CreateObject("Grapher.Application")
Grapher.Visible = True
Set Plot1 = Grapher.Documents.Add(grfPlotDoc)
Plot1.Windows.Item(1).PageUnits(grfInches)

'Create line plot graph
Plot1.Shapes.AddLinePlotGraph("C:\Program Files\Golden Software\Grapher 15 Preview\Samples\3D bar chart.dat",1,2)

'Define object pointer
Set Graph1 = Plot1.Shapes.Item(1)
Set YAxis1 = Graph1.Axes.Item(2)
Set XAxis1 = Graph1.Axes.Item(1)
Set LineScatterPlot1 = Graph1.Plots.Item(1)

'Set TickLabels.UseDateTimeFormat
XAxis1.TickLabels.UseDateTimeFormat = True

'Set Min
XAxis1.AutoMin = False
XAxis1.Min = DateValue("7/2/1905")

'Set Clipping.XMinMode
LineScatterPlot1.Clipping.XMinMode = grfClipAxis

End Sub