Visual Basic - ¿Anguen Sabe sobre Get/Let ?

Hola Amigos:
He creado varias propiedades con get y let en un ActiveX.
Pero No puedo crear una propiedad Font en mi ActiveX Component, no sé cómo
debo definir mi variable, la propiedad, y qué poner en los procedimientos InitProperty, ReadProperty y WriteProperty para que me funcione!

Por favor, alguien me puede ayudar?.

Saludos!

Hola Fabian...

Creo que no debes de poner la instruccion "Get" sino "Set" ya que la propiedad Font debe de heredar si se le puede llamar asi una serie de subpropiedades con la que cuenta la Propiedad Font :S, Aqui te dejo la forma de como puedes hacerlo:

Public Property Get Font() As Font
Set Font = Text1.Font
End Property

Public Property Set Font(ByVal New_Font As Font)
Set Text1.Font = New_Font
PropertyChanged "Font"
End Property

En estas propiedades utilizo un text para asignarle y devolver la propiedad Font a mi control ActiveX y asi es como debes de guardar los valores en tu cuadro de propiedades:

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

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Font", Text1.Font, Ambient.Font)
End Sub

Espero que te sirva... Saludos