Sub Main

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

Dim Docs
Set Docs = GrapherApp.Documents(1)
Dim Plot As Object
Set Plot = Docs.Shapes

Plot.Item(1).Select
Plot.Item(2).Select
Plot.Item(1).Deselect

For i=3 To 8
Plot.Item(i).Select
Next i

Plot.Item(1).Name="Test"

Plot.Item(1).line.foreColor=grfColorBlue

End Sub