Visual Basic - Control OCX

Amigos una consulta

Hice algunos controles OCX, con diversos objetivos

Uno para crear ventanas emergentes, al estilo de las de notificacion del MSN, con transparencia, posibilidad de elegir desplazamiento o fade al aparecer y al desaparecer, poner logo, titulo, etc.

Otro, que es multiple, se trata de cajas de testo TextBoxs, para poder escribir solo en mayusculas, solo en minusculas, solo nuemos, solo caracteres de e-mail, y uno de texto normal.

La cosa es que a estos controles, le cree diversas propiedades, a fin de configurar su uso...

El problema es que no se como hacer para que en modo diseño, al cambiar una de las propiedades que YO cree, se mantenga en modo ejecucion.... Me explico... en modo diseño pongo la propiedad "Aparecer" del coptrol de la ventana emergente a "2_Desplazamiento", pero al ejecutar el programa, no lo toma y ejecuta el que asigne por defecto, esto es; "1_Fade".
Para poder cambiar las propiedades, lo debo hacer a traves de codigo, por lo que para cambiar una propiedad uso

Private sub Form_Load

____ miVentana.Aparecer = 2_Desplazamiento ' o puede ser
____ miVentana.Aparecer = 2 ' Pues es una enum

End Sub

Agradecere a quien sepa como poder asignar las propiedades en modo diseño y a traves de la ventana de propiedades del control.

Gracias

si te pongo solamente "PropertyBag" te arreglas?

copio&pego de algo mio, espero te sirva:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim abc As Boolean
On Error Resume Next
mMsgConfirmaSalir = PropBag.ReadProperty("MsgConfirmaSalir", "¿ Cerrar ?")
mMsgConfirmaEliminar = PropBag.ReadProperty("MsgConfirmaEliminar", "")
mMsgConfirmaCancelar = PropBag.ReadProperty("MsgConfirmaCancelar", "")
cmdEliminar.caption = PropBag.ReadProperty("CaptionEliminar", "Eliminar")
cmdImprimir.caption = PropBag.ReadProperty("CaptionImprimir", "Imprimir")
abc = PropBag.ReadProperty("AceptarBorraControles", True)
mABC abc
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "MsgConfirmaSalir", mMsgConfirmaSalir, "¿ Cerrar ?"
PropBag.WriteProperty "MsgConfirmaEliminar", mMsgConfirmaEliminar
PropBag.WriteProperty "MsgConfirmaCancelar", mMsgConfirmaCancelar
PropBag.WriteProperty "CaptionEliminar", cmdeliminar.caption, "Eliminar"
PropBag.WriteProperty "CaptionImprimir", cmdImprimir.caption, "Imprimir"
PropBag.WriteProperty "AceptarBorraControles", mABC(), True
End Sub

y ahora que reviso falta aca el PropertyChanged,
igual supongo te es suficiente para bucear en la ayuda de VB

salud

Gracias

Voy a revisar y te cuento