dim a as new ABAddressBookMBS
dim p as new ABPersonMBS

if not p.setValue("Ben",a.kABFirstNameProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABFirstNameProperty)
end if

dim theAB as new ABAddressBookMBS
dim result as new ABGroupMBS
dim error as NSErrorMBS
dim b as Boolean=result.SetValue("test",TheAB.kABGroupNameProperty,error)
if not b then
  Msgbox("Failed to name group test."+error.description)
else
  MsgBox "OK"
end if