STATIC SUB SetProperty ( Object AS Object , Property AS String , Value AS Variant )