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