COM object doesn’t support property or method

[sashakli]

Hi
I've created ActiveX.EXE COM server (TestComp2) that has 2 classes
1. cls1 that Ipmplements IDescriptionSet interface
2. cls2 that Imlements IDescription interface

When I declare a variable of the appropriate interface it gives me an
access to the property “Text” such as
Dim oDS As IDescriptionSet
Set oU = CreateObject("TestComp2.cls1")
Print oO.Item(1).Text
But when I declare a variable of type "Object" it gives me an error:
"Run - Time error 483 object doesnt support this property or method" such as:
But object does support oO.Item(1).IDescription_Text

Dim oO As Object
Dim oDSet As IDescriptionSet

Set oDSet = CreateObject("TestComp2.cls1")
Set oO = oDSet
Print oO.Item(1).Text < -Run - Time error 483 object doesn’t support this property or method"

The code example is down below.
If you know why the object is looking for "IDescription_Text" instead of "Text" property please let me know.
Thanks.
'-----------ActiveX.EXE server ----------------------------------
Project name "TestComp2"
cls2
Option Explicit
Implements IDescription

Private Property Get IDescription_Text() As String
IDescription_Text = "Yaba - Daba - Dooo"
End Property
'----------------------------------------------------------------------------------

cls1
Option Explicit
Implements IDescriptionSet
Private Property Get IDescriptionSet_Item(ByVal vIndex As Variant) As IDescription
Dim oDescription As cls2

Set oDescription = New cls2
Set IDescriptionSet_Item = oDescription
End Property

'----------------------------------------------------------------

' ------------- Client ---------------
Option Explicit
Dim oU As IUnknown
Dim oDSet As IDescriptionSet
Dim oD As IDescription
Dim oO As Object

Private Sub Cmd_Click()

Set oU = CreateObject("TestComp2.cls1")
Set oDSet = oU

Set oO = oDSet

Print oO.Item(1).Text <-Run - Time error 483 object doesn’t support this property or method

Set oU = Nothing
Set oO = Nothing
Set oDSet = Nothing

End Sub

But object does support oO.Item(1).IDescription_Text - Why ?