Hi

Can you provide a simple reproduce sample and send to me by removing the
"online" from my email address?

Here is my test code.
[Interface Class1]
Public Function Test() As Class1
End Function

[Class2]
Implements Class1

Private Function Class1_Test() As Class1
MsgBox "Class2"
Set Class1_Test = New Class3
End Function

[Class3]
Implements Class1

Private Function Class1_Test() As Class1
MsgBox "Class3"
End Function

[Test module]
Sub Test()
Dim o As Class1
Set o = New Class2
o.Test
Dim b As Class1
Set b = o.Test()
b.Test
End Sub

If I have any misunderstanding, please feel free to post here.



Best regards,

Perter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.