Zitat:

Ich habe aber die Eigenschaft Icon als Variant Deklariert, geht auch nicht anders.

Dim mIcon As Picture
 
Public Property Get Icon() As Picture 
Set Icon = mIcon 
End Property 
 
Public Property Set Icon(Byval vNew As Picture) 
Set mIcon = vNew
PropertyChanged "Icon" 
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Icon = PropBag.ReadProperty("Icon", Nothing)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Icon", Icon, Nothing
End Sub
 
Private Sub UserControl_InitProperties()
Set Icon = Nothing
End Sub