Visual Basic - Problemas ControlActiveX

Estoy creado un control Activex a partir de dos controles textbox i un label, como entorno gráfico.

A la hora de querer asignarle la propiedad BorderStyle el control hace caso omiso de la orden siguiente.

La ccBorderStyleConstants la he definido yo como:

Enum ccBorderStyleConstants
ccNone = 0
ccFixedSingle = 1
End Enum

Public Property Get BorderStyle() As ccBorderStyleConstants
BorderStyle = UserControl.BorderStyle
End Property

Public Property Let BorderStyle(ByVal NouBorder As ccBorderStyleConstants)
UserControl.BorderStyle = NouBorder
PropertyChanged "BorderStyle"
End Property

Hay alguna cosa que este haciendo mal?

Después otra pregunta:

En el mismo control quiero que si el usuario del control cambia el tipo de letra se modifique, pero el control me da el siguiente error:

Número de argumentos erróneo o asignación de propiedad no válida (Error 450)

El código que yo he hecho para la propiedad font es:

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

Public Property Let Font(ByVal NovaFont As Font)
UserControl.Font = NovaFont
Text1.Font = NovaFont
Text2.Font = NovaFont
Label1.Font = NovaFont
PropertyChanged "Font"
End Property

Hay alguna cosa que este haciendo mal?

Muchas gracias por vuestra ayuda.