CimRoleList.New (method)

Creates a new role.
Syntax: Set CimRole = object.New ( RoleID )
RoleID As String - Name of the new role
Description: CimRoleList.New returns a new CimRole object. This is the method to call to create a new roles. You must call CimRoleList.Save to save the role to the project.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim roles As CimRoleList
Dim role As cimRole
Set roles = project.Roles
Set role = roles.New("TECH")
role.PrivSetpoint = TRUE
roles.Save role, False