This function returns compound roles.
object.LoadCompoundRoles()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the compound roles and their names.
Dim aCompoundRoles
Dim aCompoundRole
Dim aMessage
Set aCompoundRoles = Profile.LoadCompoundRoles
aMessage = "Compound Roles Count = " & aCompoundRoles.Count
for i = 0 to aCompoundRoles.Count - 1
set aCompoundRole = aCompoundRoles.Item(i)
aMessage = aMessage & vbNewLine & aCompoundRole.RoleName
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Compound Roles can be found in
.