propertyGet2ID :: DISPID -> [VarIn] -> ArgOut a1 -> ArgOut a2 -> IDispatch d -> IO (a1,a2)
propertyGet2ID dispid argsin (varin1,argres1) (varin2,argres2) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin1,varin2]
           unmarshallVariants2 argres1 argres2 p
propertyGet2ID :: DISPID -> [VarIn] -> ArgOut a1 -> ArgOut a2 -> IDispatch d -> IO (a1,a2)
propertyGet2ID dispid argsin (varin1,argres1) (varin2,argres2) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin1,varin2]
           unmarshallVariants2 argres1 argres2 p
propertyGet2ID dispid argsin (varin1,argres1) (varin2,argres2) obj
      = do p <- obj # invokePropertyGet dispid argsin [varin1,varin2]
           unmarshallVariants2 argres1 argres2 p