<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=#000099>Private</font> m_Value <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
<font color=#000099>Public</font> Property <font color=#000099>Get</font> Value( _
  ) <font color=#000099>As</font> <font color=#000099>Integer</font>
  Value = m_Value
<font color=#000099>End</font> Property
 
<font color=#000099>Public</font> Property Let Value(<font _
  color=#000099>ByVal</font> iNewValue <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=#000099>If</font> iNewValue >= 0 <font color=#000099>And</font> _
  iNewValue <= Option1.<font color=#000099>UBound</font> <font _
  color=#000099>Then</font>
    m_Value = iNewValue
    Option1(m_Value) = <font color=#000099>True</font>
    PropertyChanged "Value"
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> Property
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  UserControl_InitProperties()
  m_Value = 0
  Option1(m_Value) = <font color=#000099>True</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  UserControl_ReadProperties(PropBag <font color=#000099>As</font> PropertyBag)
  <font color=#000099>With</font> PropBag
    m_Value = .ReadProperty("Value", 0)
  <font color=#000099>End</font> <font color=#000099>With</font>
 
  Option1(m_Value) = <font color=#000099>True</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  UserControl_WriteProperties(PropBag <font color=#000099>As</font> PropertyBag)
  <font color=#000099>With</font> PropBag
    .WriteProperty "Value", m_Value, 0
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>