object as property value

Can a property of an activex control be an object.


my code contains :


Public Property Get MessageBuddy() As Object
Set MessageBuddy = messagebuddy_value
End Property

Public Property Let MessageBuddy(ByVal vNewValue As Object)
Set messagebuddy_value = vNewValue
PropertyChanged "MessageBuddy"
End Property

now for this property WriteProperties of the usercontrol contains

Call PropBag.WriteProperty("messagebuddy", messagebuddy_value,nothing)

this gives error
error 330:
'illegal parameter.Can't write object because it does not support persistence. '

instead of nothing if i use messagebuddy_value , it works but

on again opening the form the ReadProperty statement :

Set messagebuddy_value = PropBag.ReadProperty("MessageBuddy", Nothing)

messagebuddy_value shoes nothing.

i don't if value has not been written or it is not able to read it ?

Can Any One help ?

Thanks.