自定义控件为什么加不上图片!!!!

Question

为什么加不上图片。错误是“Wrong number of arguments or invalid property assignment”
窗体一个image
Dim Button_defaltPicture As StdPicture
Dim Button_movePicture As StdPicture
Dim Button_downPicture As StdPicture
Dim b_enabled As Boolean
'_________________
Private Sub Control_show()
Image1.Left = 0
Image1.Top = 0
UserControl.Width = Image1.Width
UserControl.Height = Image1.Height
End SubPrivate Sub UserControl_Show()
Control_show
End Sub
'‘**************Button属性
Public Property Let DefaultPicture(ByVal PNew As StdPicture)'用StdPicture 替换 picture也不好用
   Set Button_defaltPicture = PNew
     Image1.Picture = PNew
     PropertyChanged "DefaultPicture"
End Property
Public Property Get DefaultPicture() As StdPicture
    Set DefaultPicture = Button_defaltPicture
End PropertyPublic Sub UserControl_WriteProperties(PropBag As PropertyBag)  '返回设置的数据
       Call PropBag.WriteProperty("DefaultPicture", Button_defaltPicture, Image1.Picture)
End Sub

Answer 1

Public Property set DefaultPicture(ByVal PNew As StdPicture)
   Set Button_defaltPicture = PNew
     Image1.Picture = PNew
     PropertyChanged "DefaultPicture"
End Property得加上这个