MdiElements

Remarks:

This object manages "MdiElement" objects.

Properties:

Methods:

Samples:

Sub zenOn_MdiElements()
	'Declarations
	Dim zPIC As DynPicture
	Dim zMDIs As MdiElements
	Dim i As Integer

	'Initialize zPIC with the ALARM picture
	Set zPIC = MyWorkspace.ActiveDocument.DynPictures.Item("ALARM")
	'Initialize zMDIs with the available MDI elements for the ALARM picture
	Set zMDIs = zPIC.MdiElements

	'For every MDI element in the ALARM picture...
	For i = 0 To zMDIs.Count - 1
		'... which is not a default element...
		If Not zMDIs.Item(i).IsDefault Then
			'... output the caption of the element.
			Debug.Print zMDIs.Item(i).Caption
		End If
	Next i
End Sub