怎么对用户控件添加Picture属性？

Question

我找到了一个按纽的用户控件，但是他没有picture属性。我怎么添加这个属性。大概的思路？

Answer 1

例如:
'
'Picture
'设置或返回一个PICTURE对象.
'
Public Property Get Picture() As Picture
    Set Picture = ImgPic.Picture
End PropertyPublic Property Set Picture(ByVal New_Picture As Picture)
    
    On Error Resume Next
    
    If New_Picture Is Nothing Or New_Picture = 0 Then
       Set m_Picture = PicGroup.Picture
       ImgPic.Picture = PicGroup.Picture
       Set m_Picture = Nothing
       ImgPic.Visible = False
       FileName = ""
    Else
        Set m_Picture = New_Picture
        Call PicToPic(PicGroup.Width, PicGroup.Height, m_Picture, ImgPic)
        PropertyChanged "Picture"
    End If
End Property