Here is my sample code for Font property of ActiveX control, which contains PictureBox:

Public Property Get Font() As Font

  Set Font = picMainPicture.Font
End Property

Public Property Set Font(ByVal New_Font As Font)

  Set picMainPicture.Font = New_Font
  PropertyChanged "Font"
End Property