Salve a tutti,
Sto realizzando un OCX per implementare un commandButton con qualche funzione in più. (premetto che è il mio primo OCX)
Vorrei aggiungere la proprietà Font al mio controllo. Questo è quello che ho scritto:

codice:
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
....
  CapFont = PropBag.ReadProperty("CaptionFont", Ambient.Font)
....

Public Property Get CaptionFont() As StdFont
  Set CaptionFont = CapFont
End Property

Public Property Set CaptionFont(ByVal vNewValue As StdFont)
  
  CapFont.Name = vNewValue.Name
  CapFont.Bold = vNewValue.Bold
  CapFont.Italic = vNewValue.Italic
  CapFont.Size = vNewValue.Size
  CapFont.Underline = vNewValue.Underline
  CapFont.Strikethrough = vNewValue.Strikethrough
  AggiornaCaption
  PropertyChanged "CaptionFont"

End Property
Ma in questo modo riesco a cambiare solo il fontName e non cambiano le proprietà Bold, Italic, Size ....

Qualcuno saprebbe aiutarmi??