propertySetID :: DISPID -> [VarIn] -> IDispatch d -> IO ()
propertySetID dispid argsin obj
      = do p <- obj # invokePropertySet dispid argsin []
           unmarshallVariants0 p
propertySetID :: DISPID -> [VarIn] -> IDispatch d -> IO ()
propertySetID dispid argsin obj
      = do p <- obj # invokePropertySet dispid argsin []
           unmarshallVariants0 p
propertySetID dispid argsin obj
      = do p <- obj # invokePropertySet dispid argsin []
           unmarshallVariants0 p