Implement a new interface

[zubair_ahmed]

i want to expose all of my interfaces to a Vb application, but the vb application sees nothing except the default interface. thanx in advance Z.A -- modified at 2:11 Friday 24th February, 2006

[Lim Bio Liong]

Hello zubair_ahmed, Yes, COM objects will by default expose its "default" interface. However, you can DIM an object of another interface and cast the original COM object to this interface. Doing so is equivalent to performing QueryInterface(). Here is an example : '' Let's say TestObject supports its default interface '' plus TestInterface01 and TestInterface02. Set TestObjectObj = New TestObject '' Define objects of the 2 desired interfaces... Dim TestInterface01Ptr As TestInterface01 Dim TestInterface02Ptr As TestInterface02 '' Cast TestObjectObj to the desired interfaces. '' This action is equivalent to QueryInterface(). Set TestInterface01Ptr = TestObjectObj Set TestInterface02Ptr = TestObjectObj '' Use the interfaces' properties and methods as per normal... TestInterface01Ptr.strProperty = "Hello" TestInterface01Ptr.Method01 TestInterface02Ptr.longProperty = 101 TestInterface02Ptr.Method01 '' Set the interfaces to nothing is equivalent to Release()'ing '' the interface pointers. Set TestInterface01Ptr = nothing Set TestInterface02Ptr = nothing Best Regards, Bio.

[mbue]

You have to add the IDispatch to all your Interfaces. For further informations see in your documentation how to implement an IDispatch-interface.