OCX

Bonjour,
j'expose mon probleme
je crée un OCX en vb6 sur lequel j'ai entre autre un label (Lbl_Titre).
j'utilise cet OCX en modifiant la propriété Caption.
En mode creation pas de problème cette propriéte est bien modifiée.
Par contre en mode exécution cette propriéte reprend la valeur initiale.
voici ce que je fais dans le userControl:


Lbl_Titre.Caption initial="Bouton"

Declaration générale (public)
Public ou Private MaValeur as string (pas d'incidence)
Captation=nom de la propriété de mon OCX

Public Property Get Captation() As String
Captation = Lbl_Titre.Caption
End Property

Public Property Let Captation(ByVal Valeur As String)
Lbl_Titre.Caption = Valeur
MaValeur=Valeur
End Property

Proprieté Private
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
MaValeur = PropBag.ReadProperty("Captation", "Bouton")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Captation", MaValeur, "Bouton")
End Sub

J'ai fait avec et sans les propriété UserControl_ReadProperties, UserControl_WriteProperties
le résultat est le même.


Quelqu'un peut-il m'aider?
Je vous remercie par avance

barb38