必须同时定义property set 和property let，两者缺一不可。你需要加上Property Let过程，如： 
    Public Property Let Picture(ByVal New_Picture As Picture) 
     UserControl.Picture = New_Picture 
     PropertyChanged "Picture" 
    End Property 
<END>    