Best (Image) Combo ever (Picture in UserControl (resolved))

[jacsoft]

Alright I almost finished my new (image)combo box. It has got lot's of features and I will soon upload it on Planet source code (I will post the link here). But I only got 1 minor problem.

I want the users to be able to select a picture. I have got it in the propertybag but when I select ... and click on a file I get the error

runtime error 450
Wrong number of arguments or invalid property assignment. I can't find it.


I have got an image on the form called ImgItem. What Is wrong. Please help

I use this code:

Dim m_picture As StdPicture

Public Property Get Picture() As StdPicture
Set Picture = m_picture
End Property

Public Property Let Picture(ByVal New_pic As StdPicture)
Set m_picture = New_pic
Set ImgItem.Picture = New_pic
PropertyChanged "Picture"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set m_picture = PropBag.ReadProperty("Picture", LoadPicture())
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Picture", m_picture, LoadPicture())
End Sub