控件的一个属性的问题，帮忙解决！50分相送

Question

我制作的一个控件，里面涉及到一个图形
就是有一个picture属性
我希望做得和image的picture属性一样，只要点一下，就自动打开文件，然后把图片读进来，并且保存
这个属性好难做啊
请帮我一下
就是一个获得图形并且保存的属性
各位有代码的，请告诉我一下
我要制作一个按扭控件
按扭有图片，不会处理了！

Answer 1

'在你的控件代码中加入如下的代码。
Public Property Get Picture() As Picture
    Set Picture = Picture1.Picture
End PropertyPublic Property Set Picture(ByVal New_Picture As Picture)
    Set Picture1.Picture = New_Picture
    PropertyChanged "Picture"
End Property'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Set Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Picture", Picture, Nothing)
End Sub