RD
Sub %Method%(obj)
Dim Mdl
Set Mdl = obj.Model
Dim Sel
Set Sel = Mdl.CreateSelection
If not (Sel is Nothing) Then
Dim user
For Each user in Mdl.Users
if Not user.ClassName = "Schema" then
Sel.Objects.Add user
end if
Next
' Display the object picker on the selection
Dim selObj
set selObj = Sel.ShowObjectPicker
If Not (selObj is Nothing) Then
obj.SetExtendedAttribute "Owner2", selObj
End If
Sel.Delete
End If
End Sub
