ABPersonMBS.addProperty(propertyName as string, type as Integer) as Integer

dim p as ABPersonMBS
// get a person

call p.addProperty "Distance",1

Property name must be unique.
For types see typeOfProperty.
Returns the number of properties successfully added.

ABPersonMBS.properties as string()

Returns an empty array on any error.

ABPersonMBS.removeProperties(properties() as string) as Integer

Returns the number of properties successfully removed.

ABPersonMBS.removeProperty(propertyName as string) as Integer

Returns the number of properties successfully removed.

ABPersonMBS.searchElementForProperty(PropertyName as string, Label as string, Key as string, value as Variant, comparison as Integer) as ABSearchElementMBS

property: The name of the property to search on, such as kABAddressProperty or kABLastNameProperty. This name cannot be "".
label: The label name for a multivalue list, such as kABAddressHomeLabel, kABPhoneWorkLabel, or a user-specified label, such as Summer Home. If the specified property does not have multiple values, pass "". If the specified property does have multiple values, pass "" to search all the values.
key: The key name for a dictionary, such as kABAddressCityKey or kABAddressStreetKey. If the specified property is not a dictionary, pass "". If the specified property is a dictionary, pass nil to search all keys.
value: What you're searching for. If nil, then the only supported value for comparison is kABEqual or kABNotEqual.
comparison: The type of comparison to perform, such as kABEqual or kABPrefixMatchCaseInsensitive.

ABPersonMBS.typeOfProperty(propertyName as string) as Integer

Possible values:

const kABMultiValueMask = &h100
const kABErrorInProperty = &h0
const kABStringProperty = &h1
const kABIntegerProperty = &h2
const kABRealProperty = &h3
const kABDateProperty = &h4
const kABArrayProperty = &h5
const kABDictionaryProperty = &h6
const kABDataProperty = &h7
const kABMultiStringProperty = kABMultiValueMask + kABStringProperty
const kABMultiIntegerProperty = kABMultiValueMask + kABIntegerProperty
const kABMultiRealProperty = kABMultiValueMask + kABRealProperty
const kABMultiDateProperty = kABMultiValueMask + kABDateProperty
const kABMultiArrayProperty = kABMultiValueMask + kABArrayProperty
const kABMultiDictionaryProperty = kABMultiValueMask + kABDictionaryProperty
const kABMultiDataProperty = kABMultiValueMask + kABDataProperty