OCX e prprietà Font

[IKON]

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:

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??

[DeBe99]

CapFont è una variabile oggetto, devi impostarla con il set (altrimenti ti ritorna il suo value che è il nome del font )

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

[IKON]

Grazie! Funziona!!!
Avevo già provato con il set ma non andava.... forse avevo cambiato qlcs nelle altre routine e avevo dimenticato poi di aggiustarlo.
Cmq ora va bene. Grazie