SelectedObjects

Returns collection of selected objects.

Syntax

Set value = object.SelectedObjects

The SelectedObjects property syntax has the following parts:

Part	Description
object	A valid ARDesigner object
value	A Selection object.

Data Type

Selection

Example

Private Sub ARDEsigner1_SelChange()
	Dim lSel As Long
	Dim arrSel()
	'plist is a custom PropertyList control
	plist.Clear
 
	'When selection changes, add selected objects to the custom 
	'property list
	If ARDesigner1.SelectedObjects.Count > 0 Then
		ReDim arrSel(ARDesigner1.SelectedObjects.Count - 1)
		For lSel = 0 To ARDesigner1.SelectedObjects.Count - 1
			Set arrSel(lSel) = ARDesigner1.SelectedObjects(lSel)
		Next
		plist.SelectObjects arrSel
	End If
End Sub