O exemplo a seguir demonstra como criar uma Pena por script, conforme os procedimentos a seguir.

1.Crie um E3Chart em uma Tela.

2.Crie um Botão de Comando nesta Tela. Na propriedade Caption, digite o texto "Criar Pena".

3.Abra a Janela de Propriedades deste Botão de Comando e selecione a aba Scripts. Digite o script a seguir no evento Click.

Sub Texto1_Click()
  Set E3Chart1 = Screen.Item("E3Chart1")
  MsgBox "Clique em OK para criar a Pena"
  Set Pen = E3Chart1.Pens.AddPen("Pen1")
  Pen.DataSourceType = 0 ' Tempo real
  Pen.VerDataSource = "Dados.TagDemo1"
  Pen.UseTimeStamp = True ' No X usa o timestamp
  Pen.Color = RGB(255, 0, 0)
  Pen.DocString = "teste"
  MsgBox "Clique em OK para conectar"
  Pen.Connect() ' Começa a receber os dados
  MsgBox "Clique em OK para enquadrar"
  E3Chart1.FitPen(0)
  MsgBox "Clique em OK para desconectar"
  Pen.Disconnect() ' Para de receber os dados
  MsgBox "Clique em OK para remover a Pena"
  E3Chart1.Pens.Remove(Pen.Name)
End Sub

4.Execute o projeto e verifique o resultado.