Property Get Icon() As StdPicture
Set Icon = iIcon.Picture
End Property
 
Property Let Icon(tmpIcon As StdPicture)
 Set iIcon.Picture = tmpIcon
  PropertyChanged "Icon"
End Property
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Icon", iIcon.Picture
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set iIcon.Picture = PropBag.ReadProperty("Icon", Nothing)
End Sub