VB 控件中如何设置属性？

如果你要增加一个属性   MyString，代码如下：  
   
  Const   DEFAULT_VALUE_MyString   =   "I   love   Visual   Basic"  
   
  Dim   m_strMyStringHolder   '成员变量  
   
  Public   Property   Get   MyString()   As   String  
          MyString   =   m_strMyStringHolder  
  End   Property  
   
  Public   Property   Let   ss(ByVal   strMyString   As   String)  
          m_strMyStringHolder   =   strMyString  
          PropertyChanged   "MyString"  
  End   Property  
   
  然后，在相应的   Rread-/WriteProperties   里面增加对应的语句，用于属性的持久性（Persistence）:  
   
  'Load   property   values   from   storage  
  Private   Sub   UserControl_ReadProperties(PropBag   As   PropertyBag)  
          '   Syntac   pattern:  
          '   somevar   =   PropBag.ReadProperty("PropertyName",   defaultvalue)  
          m_strMyString   =   PropBag.ReadProperty("MyString",   DEFAULT_VALUE_MyString)  
  End   Sub  
   
  'Write   property   values   to   storage  
  Private   Sub   UserControl_WriteProperties(PropBag   As   PropertyBag)  
          Call   PropBag.WriteProperty("MyString",   m_strMyString,   DEFAULT_VALUE_MyString)  
  End   Sub  
   
  VB   5/6   都有   ActiveX   Control   Interface   Wizard   Addin，用它来做很轻松。