propertyGetID :: DISPID -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertyGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin]
           unmarshallVariants1 argres p
propertyGetID :: DISPID -> [VarIn] -> ArgOut a -> IDispatch d -> IO a
propertyGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin]
           unmarshallVariants1 argres p
propertyGetID dispid argsin (varin,argres) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin]
           unmarshallVariants1 argres p