Setting the Private Flag for a contact

[thatch]

I am trying to set the private flag for a contact it fails. When I set the "TBL_CONTACT.ISPRIVATE" field to true, I get an error that states that the private flag can't be set in the current state. Hence, how can one programatically set a contact to Private?

[Tdavis]

Haven't tested it but this should work...

Dim cContact As Contact = ActApp.ApplicationState.CurrentContact
        cContact.AccessType = Act.Framework.MutableEntities.AccessType.Private
        cContact.Update()

Tom