Page History
...
Example
| Code Block | ||
|---|---|---|
| ||
Sub Main Main Dim strObjects As StringObjects 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 strObjects Debug.Print strObj.StringValue StringValue NextEnd Sub |