Propiedades y Controles de Usuario en VB .Net

Hola!

Necesito de su asistencia, estoy creando mi propio control de usuario el cual contiene paneles, picturebox y labels, esto con el fin de crear mis propios botones al estilo Metro.. He creado propiedades para cada sección, como borde del botón, fondo, texto, subtexto, icono, y las he agrupado mediante una clase, para poder usar la misma clase en otros botones. El inconveniente que tengo es que no se actualiza en tiempo de diseño los valores, es decir, al cambiar el texto en el control se mantiene igual, no cambia, agrego a continuación el código que estoy usando:

Public Class Class_Boton
Private _Borde As Color
Private _Boton As Color
Private _Icono As Image
Private _Texto As String =
Private _SubTexto As String =
<description( define="" el="" color="" de="" borde="" para="" botón="" )=""> _
Public Property Borde() As Color
Get
Borde = _Borde
End Get
Set(ByVal value As Color)
_Borde = value
End Set
End Property
<description( define="" el="" color="" de="" borde="" para="" botón="" )=""> _
Public Property Botón() As Color
Get
Botón = _Boton
End Get
Set(ByVal value As Color)
_Boton = value
End Set
End Property
<description( imagen="" a="" mostrar="" para="" el="" botón="" actual="" )=""> _
Public Property Icono() As Image
Get
Icono = _Icono
End Get
Set(ByVal value As Image)
_Icono = value
End Set
End Property
<description( texto="" del="" menú="" )=""> _
Public Property Texto() As String
Get
Texto = _Texto
End Get
Set(ByVal value As String)
_Texto = value
End Set
End Property
<description( subtexto="" del="" menú="" (opcional)="" )=""> _
Public Property SubTexto() As String
Get
SubTexto = _SubTexto
End Get
Set(ByVal value As String)
_SubTexto = value
End Set
End Property
End Class

Private _Boton1 As New Class_Boton

<typeconverter(gettype(expandableobjectconverter)), _
designerserializationvisibility(designerserializationvisibility.content)=""> _
Public Property Boton1() As Class_Boton
Get
Boton1 = _Boton1
End Get
Set(ByVal value As Class_Boton)
_Boton1 = value
Me.lblTexto.Text = value.Texto

Me.lblTexto.Text = _Boton1.Texto
End Set
End Property

El texto en cursiva debería actualizar mi label con lo que llega de la propiedad pero no pasa nada, no sé dónde estoy fallando..

Agradezco muchísimo su ayuda.

</typeconverter(gettype(expandableobjectconverter)),></description(></description(></description(></description(></description(>