Добавить объект в пользовательский элемент управления в VB6

Question

Я найти код, как это во всем Интернете, но это не похоже на работу для меня,

Private FText As String 

Public Property Get Text() As String 
    Text = FText 
    lblText.Caption = Text 
End Property 

Public Property Let Text(ByVal Value As String) 
    FText = Value 
End Property 

Позвольте мне объяснить более, что я делаю, я создаю и единственная часть, за которой я застрял, получает заголовок для элемента управления. Я получил свойство, чтобы показать «Текст», и когда я ввожу его, он устанавливает подпись, но затем, когда я запускаю программу, надпись стирается! Что не так с кодом, который я делаю?

Answer 1

Я решил это!

Const m_def_Caption = "Cmd" 

'Dim m_Picture As Picture 
Dim m_Caption As String 

Private Sub UserControl_InitProperties() 
    m_Caption = m_def_Caption 
End Sub 

Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
    m_Caption = PropBag.ReadProperty("Caption", m_def_Caption) 
    lblText.Caption = m_Caption 
End Sub 

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
    Call PropBag.WriteProperty("Caption", m_Caption, m_def_Caption) 
End Sub 

Public Property Get Caption() As String 
    Caption = m_Caption 
End Property 

Public Property Let Caption(ByVal New_Caption As String) 
    m_Caption = New_Caption 
    PropertyChanged "Caption" 
End Property 

Это работает, спасибо за помощь, и я рад, что смог сам решить это.