method0 :: Member
        -> [VarIn]
        -> IDispatch i
        -> IO ()
method0 member args obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID0 dispid args obj)
method0 :: Member
        -> [VarIn]
        -> IDispatch i
        -> IO ()
method0 member args obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID0 dispid args obj)
method0 member args obj = do
   dispid <- obj # getMemberID member
   catchMethError member (methodID0 dispid args obj)