propertySetGet :: Member -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertySetGet member argsin argout obj
      = do dispid <- obj # getMemberID member
           propertySetGetID dispid argsin argout obj
propertySetGet :: Member -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertySetGet member argsin argout obj
      = do dispid <- obj # getMemberID member
           propertySetGetID dispid argsin argout obj
propertySetGet member argsin argout obj
      = do dispid <- obj # getMemberID member
           propertySetGetID dispid argsin argout obj