Description

Returns newly-created and empty StringObjects.

Syntax

Public Function CreateStringObjects() As StringObjects

Example

Sub Main
    Dim strObjects As StringObjects
    Dim strObj As StringObject

    Debug.Clear

    Set strObjects = DiagramManager.CreateStringObjects
    Set strObj = strObjects.Add("A")
    Set strObj = strObjects.Add("B")
    Set strObj = strObjects.Add("C")
    For Each strObj In strObjects
        Debug.Print strObj.StringValue
    NextEnd Sub

See Also

  • No labels