propertySet :: Member -> [VarIn] -> IDispatch d -> IO ()
propertySet member argsin obj
      = do dispid <- obj # getMemberID member
           propertySetID dispid argsin obj
propertySet :: Member -> [VarIn] -> IDispatch d -> IO ()
propertySet member argsin obj
      = do dispid <- obj # getMemberID member
           propertySetID dispid argsin obj
propertySet member argsin obj
      = do dispid <- obj # getMemberID member
           propertySetID dispid argsin obj