PROBLEMA propiedad Control de Usuario

Tienes que guardarlo en el property bag, de esta forma:

Dim m_OffsetSeparator As Long

Public Property Get OffsetSeparator() As Long
OffsetSeparator = m_OffsetSeparator
End Property

Public Property Let OffsetSeparator(ByVal New_OffsetSeparator As Long)
m_OffsetSeparator = New_OffsetSeparator
PropertyChanged "OffsetSeparator"
End Property


Private Sub UserControl_InitProperties()
m_OffsetSeparator = 0
End Sub


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

m_OffsetSeparator = PropBag.ReadProperty("OffsetSeparator", 0)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("OffsetSeparator", m_OffsetSeparator, 0)
End Sub

"Jaime" escribió en el mensaje
news:
> Hola a todos
>
> tengo un control de usuario en el que defino una propiedad Minimo de la
> siguiente forma:
>
> Option Explicit
> Private mMinimo As Single
>
> Public Property Get Minimo() As Single
> Minimo = mMinimo
> End Property
> Public Property Let Minimo(ByVal vNewValue As Single)
> mMinimo = vNewValue
> End Property
>
> Al utilizar el control en un proyecto, establezco en modo diseño la
> propiedad Minimo a un valor, pero al ejectuar el proyecto o al cerrarlo

> volver a abrirlo esta propiedad toma como valor por defecto 0.
> ¿Como puedo solucionar esto?
> ¿Alguien sabe como puedo especificar que esta propiedad sea la propiedad
por
> defecto?
>
> Muchas gracias por la ayuda
>
>