Ich habe ein Usercontrol erstellt mit diversen Eigenschaften. Eine dieser Eigenschaften ist Font:
Public Property Let Font(ByVal Value As Font)
Set lblDXLabel.Font = Value
End Property
Public Property Get Font() As Font
Set Font = lblDXLabel.Font
End Property
Wenn ich nun dieses kompilierte Usercontrol in ein Projekt einbinde, so erscheint das Property Font in der Liste der Properties. (Lesen OK)
Wenn ich im Code den Font ändere, z.B. Set DXLabel1.Font = Me.Font, so wird dieser Font dem Objekt zugeordnet. (Schreiben OK)
Wenn ich über die Liste der Properties den Font ändern will, (Doppelklick auf Font -> Fenster Schriftart wird geöffnet -> Klick auf OK) so erscheint die Fehlermeldung: „Wrong number of arguments or invalid property assignment (Error 450)“
Was ist an diesem Property falsch. Wie kann ich diesen Fehler eliminieren?