Description

Returns an object representing a collection of all submodels in the model.

Syntax

Public Function SubModels() As SubModels

Example

Dim MyModel As Model
Dim Allsubs As SubModels

Set MyDiagram = DiagramManager.ActiveDiagram
Set MyModel = MyDiagram.ActiveModel
Allsubs = MyModel.SubModels

See Also

  • No labels