Public Property Get Picture() As Picture
    Set Picture = pPicture
End Property
 
Public Property Let Picture(ByVal picNewPicture As Picture)
    Set pPicture = picNewPicture
    PropertyChanged "Picture"
End Property
 
Public Property Set Picture(ByVal picNewPicture As Picture)
    Set pPicture = picNewPicture
    PropertyChanged "Picture"
End Property