AddPen(PenName)

This method adds a new Pen to an E3Chart and returns that Pen. Please check the general Name property for more information about the allowed characters on the names of objects. The next script contains an example of using this method.

Sub CommandButton1_Click()
  ' Creates an untitled Pen.
  Set Pen = Screen.Item("E3Chart1").Pens.AddPen("")
  MsgBox Pen.Name
End Sub
 
SubCommandButton1_DblClick()
  ' Creates a Pen named "Pen1".
  ' If this name already exists, increments it.
  Set Pen = Screen.Item("E3Chart1").Pens.AddPen("Pen1")
  MsgBox Pen.Name
End Sub
 
Sub CommandButton2_Click()
  ' Creates a Pen and links it to DemoTag1.
  Set Chart = Screen.Item("E3Chart1")
  Set Pen = Chart.Pens.AddPen("")
  MsgBox Pen.Name
  Pen.UsetimeStamp = True
  Pen.YLink = "Data.DemoTag1"
  Pen.Connect()
End Sub