Public property Get myPicture() As OLE_PICTURE
Set myPicture = Image1.Picture
End Property
 
Public property Set myPicture(vNew As OLE_PICTURE) 
Set Image1.Picture = vNew
PropertyChanged("myPicture")
End Property

Public property Get myFont() As Font
Set myFont = Label1.font
End Property
 
Public property Set myFont(vNew As Font) 
Set Label1.font = vNew
PropertyChanged("myFont")
End Property