The ClassType property of the Role interface contains an enumeration constant that identifies the specific class type.
ClassType is set to one of the following values:
Read-only
Use the following code to return the class type of a role object and determine which object class has been returned:
' Assume the existence of object RoleObject
Dim ClassTyp As DSO.ClassTypes
ClassTyp = RoleObject.ClassType
Select Case ClassTyp
Case clsDatabaseRole
' Insert code for a database role.
Case clsCubeRole
' Insert code for a cube role.
Case clsMiningModelRole
' Insert code for mining model roles.
Case Else
' Insert code for other objects.
End Select