Public Property Get SkinPicture() As Picture
    Set SkinPicture = Picture1.Picture
End Property
 
Public Property Set SkinPicture(ByVal NewPic As Picture)
    Set Picture1.Picture = NewPic
    PropertyChanged "SkinPicture"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("SkinPicture", Picture1.Picture, Nothing)
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Set Picture1.Picture = PropBag.ReadProperty("SkinPicture", Nothing)
End Sub