Calling .FindByType makes VB6 error out, help?

Question

Possible Duplicate:
Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic.

Basically, im just searchign for uPnP devices using the uPNPDeviceFinder classes .FindByType method, .FindByUDN works, but FindByType gives an error:

VB6 gives a compile error when I attempt to call the method:

Function or interface marked as restricted, or the function
uses an Automation type not supported in Visual Basic.

i have no idea what this even means or why i am getting it. I am referencing and using the upnp.dll file as found in yoru system32 directory - when i reference and use this in VS2010 (say, vb.net) it all works and no issues are found, but in VB6, i get the error above, any ideas anyone? thanks.

Answer 1

The function is declared in the typelib as

HRESULT FindByType(
                    [in] BSTR bstrTypeURI, 
                    [in] unsigned long dwFlags, 
                    [out, retval] IUPnPDevices** pDevices);

and the unsigned parameter dwFlags is unusable in VB6

Function FindByType(bstrTypeURI As String, dwFlags As <Unsupported variant type>) As UPnPDevices

You have to "VB-fy" this typelib by changing param types to compatible VB6 types.

Edit:

Here is my attempt to VB-fy this typelib, use at your own risk. IDL compiled with mktyplib.

Note that you don't have to ship vbupnp.tlb to your users, you don't have to register it on their machines. Just register and use it on your dev machine only.