Classes containing Classes

[Adam]

I have the following set up:

'Class Person
Private myPrivate as PrivateInfo
.....

Private Sub Class_Initialize()
Set myPrivate = new PrivateInfo
...
End Sub
....
Property Get getPrivate() as PrivateInfo
getPrivate = myPrivate
End Property
....

'End Class Person

where PrivateInfo is a different class module.

Then I have a userform that has a sub called setInfo that takes a
PrivateInfo as a parameter. Is there a way that I can call something
similar to this:

Private joe as Person

PrivateInfoUserform.setInfo joe.getPrivate()

I have code similar to that above but it gives me an "Object variable
or With block variable not set (Error 91)" error. What am I doing
wrong?

 

[Chip Pearson]

Adam,

Property Get getPrivate() as PrivateInfo
getPrivate = myPrivate
End Property

should be

Property Get getPrivate() as PrivateInfo
SET getPrivate = myPrivate
End Property


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Adam]

Thank you very much that worked perfectly.