<code>Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  With PropBag
    Set imageDisabled.Picture = .ReadProperty("LoadImageDisabled", Nothing)
  End With
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  With PropBag
    .WriteProperty "LoadImageDisabled", imageDisabled.Picture, Nothing
  End With  
End Sub</code>