View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default 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?