[RESOLVED] VB6 COM/Code Object Method Name ---> vTable Entry Number

[wqweto]

Btw, this skips CLSIDFromString call

Public Function ObjectIsVb6ComCodeModule(o As IUnknown) As Boolean
    Dim aGUID(0 To 1) As Currency ' {0B6C9465-D082-11CF-8B4F-00A0C90F2704}
    aGUID(0) = 128347367577987.1845@
    aGUID(1) = 29922525889064.5387@
    ObjectIsVb6ComCodeModule = vbaCheckType(o, aGUID(0))
End Function

cheers,
</wqw>