Sub Main

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

Dim Docs As Object
Set Docs = GrapherApp.Documents
Docs.Open (GrapherApp.Path + "\samples\Line scatter plot.gpj")


End Sub