怎么将图片Image 显示在ActiveX上

[jiang_hlbt]

我想做个ActiveX，其中显示一个图片，但不知道怎么做！！
下面是我做的，运行不了！！
希望谁能指点一下，谢谢大家了！！！

Public Property Get picture() As Variant
    picture=Image1.Picture
End Property

Public Property Let picture(ByVal vNewValue As Variant)
    Image1.Picture = vNewValue
    PropertyChanged "picture"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Image1.Picture = PropBag.ReadProperty("picture", "")
End Sub

 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("picture", Image1.Picture, "")
End Sub

[mfkinfo]

如果是把imagebox控件中ActiveX控件的一部分：
picture设为对象属性或picture，用接口向导生成后，在UserControl_ReadPropertie事件中添加：
Set Image1.Picture = PropBag.ReadProperty("Picture", Nothing)
如果是想在工具栏内改变ActiveX控件的显示方式：
修改用户控件的ToolboxBitmap属性即可。

[东方之珠]

去看MSDN自带的例子

[Tiger_Zhao]

Public Property Get Picture() As IPictureDisp
    Set Picture = Image1.Picture
End Property

Public Property Set Picture(ByVal RHS As IPictureDisp)
    Set Image1.Picture = RHS
    PropertyChanged "Picture"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Set Image1.Picture = PropBag.ReadProperty("Picture", Nothing)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Picture", Image1.Picture, Nothing)
End Sub