kExpand = PropBag.ReadProperty("SingleClickExpand", False)
    Enabled = PropBag.ReadProperty("Enabled", True)
    IconSet = PropBag.ReadProperty("IconSet", OptionTreeIconsWin98)
    BackgroundPicture = PropBag.ReadProperty("BackgroundPicture", Nothing)
End Sub

Private Sub UserControl_Resize()
    If (UserControl.Extender.Visible) Then
        If (UserControl.ScaleWidth &gt; 0) And (UserControl.ScaleHeight &gt; 0) Then
            tvwOpt.Move 0, 0, (UserControl.ScaleWidth),
             (UserControl.ScaleH