i have these property:
these property is working i need put it in UC properties events:Code:Public Property Let Image(ByVal img As Picture) Set picView.Picture = img PropertyChanged "Image" End Property Public Property Get Image() As Picture Set Image = picView.Image End Property
but i recive 1 error in:Code:Private Sub UserControl_WriteProperties(PropBag As PropertyBag) PropBag.WriteProperty "Image", Image, Null End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Image = PropBag.ReadProperty("Image", "") End Sub
error message: "Run-Time error '424': Object Required"Code:Image = PropBag.ReadProperty("Image", "")
why these error, can anyone help me resolve these error?
thanks





Reply With Quote