UserControl'lar ilgili bir sorun

[algea]

Merhaba arkadaşlar bir sorunum var VB6 ile ilgili olacak hatamı düzeltirseniz memnun olurum . Örnek bir UserControl yapmaya çalıştım ama benim makinede bir sorun var herhalde bir türlü doğru çalıştıramadım. Biraz ilgilenirseniz yardımcı olursanız sevinirim
Saygılarımla
algea

Const m_def_Caption = "Cmd"

'Dim m_Picture As Picture
Dim m_Caption As String
'


Private Sub UserControl_InitProperties()
  m_Caption = m_def_Caption
  Me.Caption = m_Caption
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  m_Caption = PropBag.ReadProperty("Caption", m_def_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
  lblText.Caption = m_Caption
  PropertyChanged "Caption"
End Property

 

[algea]

Sorun halloldu. Yardım etmediğiniz için teşekkürler
Saygılarımla

algea

 

[mirinkirin]

Sorun halloldu. Yardım etmediğiniz için teşekkürler
Saygılarımla

algea

Trip atmışsınız ama bu VB gerçekten çok acayip bir dil, bakınca hiçbir şey anlamıyorum. Kaldı ki forumda programlama konularına yazan insan sayısı da çok az. C# falan gönderin yardımcı olmaya çalışalım