Activate()

Ativa um objeto que está inativo no momento. O script a seguir contém um exemplo de uso deste método.

Sub CommandButton1_Click()
  Dim obj, tag
  Set obj = Application.GetObject("Dados")
  ' Cria um novo objeto e o desativa (False)
  Set tag = obj.AddObject("DemoTag", False)
  ' Inicializa os parâmetros do novo objeto
  tag.Name = "tag001"
  tag.Type = 3
  ' Ativa o objeto (coloca em execução)
  tag.Activate()
End Sub