Classes containing Classes
 

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?

Classes containing Classes
 

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" wrote in message
ups.com...
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?

Classes containing Classes
 

Thank you very much that worked perfectly.