Urgent - Interface doesn't implement class
I have a Client set up in one VB app to use a object being run in a separate VB app.
The client passes execution to the Interface, but the Class is never accessed. Could someone tell me why?
Thanks in advance.
This is the client code
Code:
Option Explicit
Private Sub Command1_Click()
Dim objComp As Object
Set objComp = CreateObject("TSTestComp.IComp")
Debug.Print objComp.Name
End Sub
This is the interface code being run separately called IComp. The instancing is set to MultiUse.
Code:
Property Get Name() As String
'
End Property
Property Let Name(ByVal vNewValue As String)
'
End Property
Property Get Version() As Variant
'
End Property
Property Let Version(ByVal vNewValue As Variant)
'
End Property
This is the class code being run separately called CComp.The instancing is set to PublicNotCreatable.
Code:
Implements IComp
Private Name As String
Private Property Let IComp_Name(ByVal RHS As String)
Debug.Print "Hello World"
End Property
Private Property Get IComp_Name() As String
Debug.Print "Hello World"
End Property
Private Property Let IComp_Version(ByVal RHS As Variant)
Debug.Print "Hello World"
End Property
Private Property Get IComp_Version() As Variant
Debug.Print "Hello World"
End Property