methodID0 :: DISPID
          -> [VarIn]
          -> IDispatch i
          -> IO ()
methodID0 dispid args obj = do
   p <- obj # invokeMethod dispid args []
   unmarshallVariants0 p
methodID0 :: DISPID
          -> [VarIn]
          -> IDispatch i
          -> IO ()
methodID0 dispid args obj = do
   p <- obj # invokeMethod dispid args []
   unmarshallVariants0 p
methodID0 dispid args obj = do
   p <- obj # invokeMethod dispid args []
   unmarshallVariants0 p